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AVERTISSEMENT 


Cet ouvrage prend la suite du manuel de l'ORIC ATMOS ; il sup- 
pose donc que le lecteur connaît déjà les fonctions BASIC de l’appa- 
reil. Il reste à savoir s'en servir avec efficacité ;après le permis de 
conduire, il s’agit de devenir un bon conducteur. 


Nous mêlons continuellement deux choses. D'une part de bonnes 
méthodes éprouvées par les programmeurs chevronnés, et d'autre part 
une multitude de trucs, de tours de mains, qui sont eux très souvent 
spécifiques aux ORIC, et à l'ATMOS en particulier. 


En effet, il n’y a pas deux micro-ordinateurs identiques, chacun 
a ses points forts et ses points faibles et aucun n'est parfait (même 
s’il fait quinze fois le prix de l'ATMOS !). Nous allons donc apprendre 
à nous appuyer sur des qualités afin de contourner des lacunes. 


Parlant du perfectionnement de la programmation en BASIC, l’au- 
teur a conscience qu'il s'adresse à des gens qui ont des idées de pro- 
grammes, idées qui doivent se concrétiser d’une manière SOLIDE et 
RAPIDEMENT. Si votre idée est bonne, il ne faut plus en faire un pro- 
gramme boîteux truffé de fautes de débutant, mais un vrai LOGICIEL 


qui « tienne la route », même s'il est court (ce qui vous incitera à vous 
lancer dans de plus longs). Ces « bonnes habitudes à prendre » vous 
amèneront à la qualité professionnelle ; d’ailleurs nous n'hésiterons pas 
à vous familiariser un peu avec le jargon. 


Hormis les utilitaires du chapitre XII, qui complètent le BASIC ORIC, 
nous n'indiquons que des programmes très courts qui sont en somme 
des « passages » de démonstrations. Tous ont été testés, et ils sont 
représentés en 38 caractères par ligne, exactement comme vous le ver- 
rez sur votre écran (après avoir fait LIST). Notre principal souci a été 
de rester clair pour tous, car pour vous la micro-informatique est avant 
tout un LOISIR, donc pas de « cours magjistraux » ! 


La table des matières risque de vous surprendre un peu, on parle 
beaucoup de l'esthétique des pages d'écran, des sécurités «anti- 
plantages » et pas un mot sur le langage machine ni sur la synthèse 
musicale... Question de priorité : 


Pour le langage machine, il faudrait y consacrer un énorme volume 
(et il en existe déjà) ; pour que la musique accompagne une image qui 
bouge, il faut du langage machine. Pour faire de la musique sans image 
(ou fixe), un instrument spécifique est meilleur marché et bien plus pra- 
tique qu'un micro-ordinateur.… Alors qu'il y tant de belles choses à faire 
en BASIC ! 


Nota : Concu à partir de l'ATMOS, cet ouvrage s'adresse aussi, disons 
à 90 %, aux possesseurs de l'ORIC 1. 
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Chapitre I 


LA PROGRAMMATION STRUCTUREE 


Disons tout de suite de quoi il s’agit, et pourquoi nous avons voulu 
commencer par cette technique. 


Un programme « structuré » ou « modulaire », est pratiquement 
une suite de GOSUB, suivie d’un END et enfin tout un bloc de sous- 
programmes, appelés par ces GOSUB et se terminant chacun par un 
RETURN. 


Cette configuration va à l'encontre des courts « programmes 
fleuves » que vous avez connus lors de votre initiation au BASIC. On 
appelle un programme « fleuve » lorsqu'il s'exécute comme il se lit, 
c'est-à-dire dans l’ordre des numéros de lignes. À présent vous voulez 
concevoir des programmes importants de votre cru, et la tendance natu- 
relle va vous conduire à faire la même chose mais en beaucoup plus 
long. En ce cas, attendez-vous à bien des misères ! La plupart des 
programmeurs chevronnés ne s’y risqueraient pas... Pourquoi ? 


Parce que l’on est pratiquement sûr d'aboutir à un programme truffé 
de GOTO vers le haut ou vers le bas, un enchevêtrement quasi inextri- 
cable. C’est ce qu’en jargon on appelle un programme « bouts-de- 
ficelle » ou encore programme « spaghetti ». C’est la faute classique 
du débutant, même si son idée de départ peut être qualifiée de géniale. 
Rappelez-vous toujours les deux grandes lois de la programmation (quel 
que soit le langage utilisé). 
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1 — UN PROGRAMME NE FONCTIONNE JAMAIS DU PREMIER COUP 
2 — UN PROGRAMME PARFAIT N’EST JAMAIS DEFINITIF 


(Il ne s’agit pas de boutades mais de réalités chaque jour 
confirmées). 
Alors, comment trouver le « bug » subtil qui bloque ou perturbe un tel 
type de programme (BUG ou BOGUE = ERREUR) ? Même s'il parvient 
à fonctionner, comment y ajouter une autre routine ? Comment en reco- 
pier une partie pour un autre programme ? 


En conclusion, un programme fleuve de 3 000 octets est déjà de 
la haute voltige, que l’auteur préfère laisser à quelques grands maîtres. 


Après ce réquisitoire très partial, faisons l'éloge de la programma- 
tion structurée ou modulaire. 


A lire les manuels d'initiation au BASIC, on a tendance à croire que 
l'on ne crée un sous-programme que si ce dernier va être appelé de 
nombreuses fois par des GOSUB éparpillés dans le programme. Cer- 
tes, c'est là un cas évident mais en pratique peu fréquent. En fait nous 
préférons dire que l'on doit créer un sous-programme à chaque fois que 
l'on a affaire à une suite de lignes BASIC remplissant une fonction bien 
spéciale. Même s'il ne comporte qu'une seule ligne ! Même s'il ne sert 
qu'une seule fois ! Exemples : un module de calculs assez complexes, 
une page d'écran pour le titre, une suite de commandes destinée à l'édi- 
tion sur imprimante (taille de caractère, tabulations, etc...), une courte 
séquence musicale, etc. 


Voyons les avantages d'une telle pratique : 


1) Chague module est indépendant, vous pouvez le refaire entièrement 
en lui ajoutant une quinzaine de lignes si nécessaire. 


2) À force d'améliorer le programme principal, vous décidez qu'il vaut 
mieux appeler ce module beaucoup plus tard ou beaucoup plus tôt, ou 
plusieurs fois (au lieu d'une comme prévu au départ). Pas de problème, 
il suffit, dans le programme principal, de déplacer ou d'ajouter des 
GOSUB à telle ligne. Et si ce module fait une dizaine de lignes, imagji- 
nez le grand chambardement qui s’ensuivrait dans un programme 
fleuve ! 


3) Vous venez de faire un programme structuré dans un domaine d’ap- 
plication qui vous est cher, et pour cela vous avez conçu une multi- 
tude de sous-programmes assez spécialisés ; soit un bloc qui dépasse 
les cent lignes, bien plus que le programme principal qui n’en fait qu'une 
vingtaine. Quelque temps plus tard, vous décidez de faire un autre pro- 
gramme qui touche le même domaine, mais ayant un rôle complète- 
ment différent. Voulez-vous parier que la plupart des modules du pre- 
mier programme vont être utiles pour le second ? 

Et vous n'aurez même pas la peine de les recopier ! Chargez l'ancien 
programme, conservez les modules, effacez le « programme principal », 
et tapez seulement le nouveau « principal ». Vous aurez certainement 
à créer de nouveaux modules, mais n’effacez pas ceux qui ne servent 
pas dans ce programme, car ce nouveau bloc de modules peut vous 
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être utile pour un futur programme numéro trois... (à moins de man- 
quer de place mémoire). 

Vous êtes ainsi en train de vous construire une « boîte à outils » car 
tous vos modules, une fois appelés par des GOSUB, sont comparables 
à de nouvelles fonctions BASIC très spécifiques à votre type de pro- 
blème. Vous devenez ainsi très productif et avec des méthodes bien 
éprouvées. Se sentir rapide et efficace, ça donne des ailes ! 


4) Améliorons cela : enregistrez une cassette où il n’y aura uniquement 
que vos modules (prendre des numéros de lignes supérieurs à 10 000), 
exemple CSAVE ’'PANOPLIE"’. 
Vous attaquez un nouveau programme, vous commencez par changer 
PANOPLIE en RAM, ou bien encore commencer à taper le programme 
principal puis faire : 

CLOAD ‘'PANOPLIE'",J 


et il viendra sa mettre à la suite. Nous verrons un cas très concrêt de 
« caisse à outils » avec les programmes du chapitre XII. 


Quels sont les inconvénients de la programmation structurée ? 


— Le risque à combattre est le manque de clarté du listing, car cette 
profusion de GOSUB dans le programme principal est assez pénible à 
lire. Pour éviter cela, ne soyez pas avare de REM, car l'ORIC 1 (48 k) 
et l'ATMOS ont une mémoire très confortable ; alors autant en profi- 
ter. Deux méthodes au choix : 

° Au tout début du programme, prévoyez plusieurs lignes REM où vous 


légendez tous vos modules, par exemple : 
50’ Légende des GOSUB : 


60’ 10000 = TITRE 

70" 11000 = ENTREES DES DONNEES 
80’ 12000 = CALCUL DE LA SURFACE 
etc. 


° On peut aussi mettre un REM au bout de la ligne où apparaît un 
GOSUB, exemple : 
420 IF A=1 THEN GOSUB 15000:'EDITION 


Trois recommandations : 


La ligne départ d'un sous-programme est un multiple de 1000, et 
de préférence supérieure à 10000. Cette ligne ne comportera qu'un 
REM, le rôle de ce module. 

Un sous-programme a son côté rigide : une fois entré dedans, on 
ne peut en sortir que par son RETURN final. Bien que nous verrons cer- 
tains assouplissements au chapitre VIII. 

Rappelons qu’au sein d’un module, on a parfaitement le droit d'ap- 
peler par des GOSUB d'autres sous-programmes. De même, l'ordre, en 
numéros de lignes des divers sous-programmes n'a aucune importance. 

Le temps que perd le micro-ordinateur à aller sur un module et à 
en revenir est quasi négligeable. 
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EN RESUME 


La nécessité de la programmation structurée en BASIC apparaît 
à partir d'une certaine longueur du programme. Cette façon de conce- 


voir un programme pourra vous être très utile si, par la suite, vous appre- 
nez d’autres langages tels le FORTH ou le PASCAL où cela et obliga- 
toire et non plus optionnel. 





Ruxe Fo 

sure a QUE: PRINTCHRSE 175 
RAINTOID, d'CHREFS 1295; °C À M É 
MINTE F8: "Entrez le Hom di T3b 


MINT 6,10; "puis chaque Partici 
MINTS ,29,"TAP UHE TOUCHES 





HEBIS 45e 7 3 4) 
4 ‘ A .41.: 40, D 





Cette réglette indique la tabulation d'une chaîne pour son centrage. 
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__ Chapitre Il __ 


ORGANIGRAMME ET VARIABLES 


C'est le plan détaillé, le schéma d'un programme. Certains auteurs 
parlent aussi d’« ordinogramme ». Ne pas confondre avec l'« al- 
gorythme » qui est un texte décrivant le ‘’scénario'” d'un programme. 


On dit parfois qu'il faut toujours dessiner l'organigramme avant de 
taper la première ligne. C'est exagéré. Prenons le cas d’un bricoleur 
en menuiserie ; si c'est pour une étagère, il n’a pas besoin de plan ; 
en revanche, s'il veut réaliser une grande armoire, c'est quasi 
indispensable. 


L'organigamme est un type de dessin qui à ses normes, tout 
comme le dessin industriel ou un circuit électrique ; mais heureusement, 
ces normes sont fort peu nombreuses, donc faciles à retenir. 


Pour les problèmes complexes, la conception sur le papier d'un 
organigramme qui « tienne la route » est un jeu de piste passionnant : 
on s'aperçoit alors que l'idée de départ est irréalisable, mais qu'on arrive 
aux buts souhaités par des voies bien différentes, mais que quelques 
astuces vont simplifier. Après bien des feuilles froissées, on aboutit alors 
à un circuit correct que les diverses circonstances ne pourront prendre 
en défaut. A ce stade, on distingue nettement les divers modules qu'il 
faudra réaliser. Plus de la moitié du travail est déjà fait, il ne reste plus 
qu'à passer (enfin) au clavier. Cela ira très vite parce que les hésita- 
tions vont être très rares. Une anecdote professionnelle va vous le 
prouver : 
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Pour ce programme de calculs scientifiques, le cahier des charges 
remis faisait près de vingt pages. L'élaboration de l’organigramme a 
pris plus d'une semaine à plein temps ! Chaque soir, la corbeille à papier 
était bien remplie. A la fin, l'organigramme tenait sur une feuille 
40 x 55 cm, et en écrivant petit ! Pour le taper en BASIC, trois jours 
ont suffit ; il faisait moins de 8 000 octets. Hormis la correction de trois 
ou quatre étourderies de syntaxe, il a fonctionné du premier coup. 


Certes, vous devez penser que ce cas est extrême, mais trois faits 
sont à retenir de cet exemple : le temps au clavier a été la moitié du 
temps passé sur le papier. La longueur du programme BASIC semble 
modeste en regard du probleme initial (nombreuses simplifications). En 
attaquant directement au clavier, il aurait eu peu de chances de réussite. 


Tout ce long préambule était destiné à vous motiver, car nous 
savons qu'un débutant en BASIC n'éprouve vraiment aucun attrait pour 
ces petits carrés et losanges. Afin que nous parlions la même langue, 
il est essentiel que nous respections ces quelques normes : 


LES NORMES DE DESSIN (voir figure Il1) 


1) On débute par le haut de la page. Le lancement du programme (RUN) 
est représenté par un cercle avec un trait tangent. 


2) Une étape conditionnelle, c'est-à-dire un IF, est représentée par un 
losange, ou encore par un hexagone très allongé quand on a beaucoup 
de choses à inscrire dedans. 


3) Le carré ou rectangle s'appelle un « pavé ». C'est le symbole passe- 
partout, on y inscrit ce qui s’y passe. En fait, il y a quelques petites 
variantes, pas toujours respectées : 

— un pavé avec un plan coupé (trapèze ou coin ‘’écorné’’) signale qu'il 
s'agit là d'une édition, aussi bien sur imprimante qu'à l'écran. Par exem- 
ple, la page d'écran montrant le résultat final, ou donnant des 
indications ; 

— un pavé aux angles arrondis signifie normalement le début du pro- 
gramme ; en fait cette configuration est souvent utilisée pour repré- 
senter une étape où on entre des données (INPUT). 


3) Losanges et pavés sont reliés par des traits (le ‘’trajet’’ du logiciel). 
N'oubliez pas les flèches sur ces traits, car certaines remontent 
(GOTO...). 


Un organigramme est fait pour être clair, et tout d’abord avec soi- 
même. Aussi, soyez très succinct pour vos inscriptions dans un pavé. 
Par exemple, écrivez « Calcul de la moyenne M », mais pas la formule ! 
Ne mettez pas des choses différentes dans le même pavé, du genre 
« Entrée de A et calcul de M », mais faites deux pavés différents reliés 
par un trait. En effet, qui vous dit que par la suite vous n'allez pas faire 
venir un trait fléché entre ces deux pavés ? 
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SOUS - PROGRAMMES 


Figure 11 1 
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Petit conseil pratique : inutile de vous appliquer à faire de jolis traits 
lors du premier tracé, car il a neuf chances sur dix pour aller à la cor- 
beille.. Commencez plutôt avec crayon et gomme. 


Vous allez alors vous attaquer au contenu de certains pavés qui 
vous semblent complexes. Il est possible que vous deviez concevoir 
un mini organigramme pour quelques-uns, mais sur une feuille sépa- 
rée. En cas de doute de fonctionnement BASIC concernant certains 
détails dont vous n'êtes pas sûr, il est conseillé de les vérifier à l'écran, 
soit en mode direct, ou par quelques lignes (deux ou trois) de mini- 
programme-test. Il arrive parfois que l'on ait ainsi une surprise de taille 
(bonne ou mauvaise), pouvant conduire à une modification importante 
dans l'organigramme principal ! 


Nous commencons à entrer dans le détail et nous baptisons des 
variables. Et là, il faut de l’ordre car le programmeur risque ensuite de 
s'y perdre ; le piège est classique, avec risques de « bugs fantômes » 
très difficiles à débusquer. 


LES NOMS DE VARIABLES 


Dans un ORIC, un nom de variables ne peut comporter que deux 
caractères, puis un troisième caractère du genre ($, %) ; c'est d'ail- 
leurs le cas de très nombreux autres micro-ordinateurs. 


Ainsi, des variables comme REFERENCE, REVENU et RETARD 
seront toutes trois tronquées en RE ! De même, PRENOMS$ et PRISES 
sont confondues en PR$. Le premier caractère doit être une lettre majus- 
cule, le deuxième caractère étant au choix, une lettre majuscule où un 
chiffre, ou absent. 

Exemples : 
NB, N4, N, AC$, A3$, A$ sont admis. 
Nb, nB, 4B, N+ sont refusés. 


Si de nombreuses variables ont un lien commun, il est pratique de 
les indicer, exemple NB(14), alors que sans indice, vous êtes limité à 
10 valeurs, exemple de NO à N9. L'indicage des variables a d'autres 
avantages : l'indice peut être paramétré, c'est-à-dire défini par un cal- 
cul, exemple NBt1x2 — 1). S'il s'agit de constantes, à définir en début 
de programme, il serait fastidieux d'écrire et de les taper une à une avec 
le signe ‘‘ =", surtout s'il y en a une trentaine. On les entre sous forme 
de variables indicées dans une boucle FOR-NEXT contenant la fonc- 
tion READ, avec ailleurs des lignes de DATA où les variables sont écri- 
tes (sans ‘’ ‘’ pour les chaînes) à la « queue leu leu » (voir chapitre VII). 


Lorsqu'une variable désigne un nombre entier (= non décimal), tel 
un comptage, une progression de boucle FOR-NEXT, un numéro de 
ligne, etc.., nous vous demandons d'utiliser une lettre comprise dans 
l'alphabet entre let N (I, J,K,L,M,N);let N étant les premières let- 
tres du mot INTEGER (= entier). Il s’agit là d'une convention d'écriture 
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héritée de langages plus anciens, mais toujours utilisés (FORTRAN 
notamment). 


En deuxième caractère il est déconseillé d'utiliser les lettres | et 
surtout O qui peuvent être confondues avec 1 et O. 


Sur ORIC, l'instruction LET est inutile. Une variable numérique non 
encore définie est égale à zéro, une variable chaîne a une longueur nulle. 
Exemple : 

PRINT WX — O : PRINT LEN (Z$) — O 


Le suffixe % implique que la valeur de la variable est entière ; 
exemple, entrons A% = 5.75 puis faisons PRINT A% — 5. Pourvu que 
ce nombre soit compris entre 32767 et —- 32767, on a le même effet 
que si l'on avait écrit A=INT(5.75) (et c'est plus court..). Le grand 
avantage des nombres entiers définis par % est qu'ils n'occupent que 
deux octets au lieu de six ; ainsi B=1 ou D=INT(6.92) ou 
E= -982785.5752 occupent chacun six octets, alors que F% = 1 ou 
G% = —- 16312 n'en prennent que deux chacun ! Mentionnons deux 
bizarreries typiques aux ORIC : les calculs avec des valeurs entières (%) 
sont un peu plus longs qu'avec des nombres « réels » à six octets. Si 
vous tapez FOR 1% =1 TO 1O0OO0:NEXT — ‘’Syntax Error'’, même si 
on prédéfinit 1 et 1000 comme étant des entiers par A% = 1:B% = 
1000. Même refus si on fait FOR 1I=A% TO B%:NEXT. 


Conclusion : Si vous utilisez des variables entières, faites quelques 
vérifications de fonctionnement... 


LA LISTE DES VARIABLES 


À mesure que vous concevez votre programme, inscrivez sur une 
feuille la signification de chaque nouvelle variable introduite. Sinon vous 
risquez facilement d'utiliser deux fois les mêmes caractères pour deux 
variables complètement différentes (ne souriez pas, cette étourderie est 
un grand classique). Le pire c'est que le programme semblera fonction- 
ner, et vous ne vous douterez pas qu'il fournit des résultats faux | 
Non seulement vous tenez cette liste à jour, mais pour les longs pro- 
grammes, inscrivez aussi le ou les numéros de lignes où chaque varia- 
ble apparaît. 


Sur l'ORIC 1 48 k et sur l'ATMOS, on dispose d’une mémoire dis- 
ponible assez confortable, alors profitez-en pour reporter ces légendes 
dans le programme sous forme de REM ; ou bien un bloc de lignes REM 
en début du listing, ou des REM en bout de ligne où telle variable appa- 
raît pour la première fois, et n'oubliez pas de faire de même pour les 
tableaux DIM. : 

Une feuille de papier peut s'égarer, pas de REM... 


Feuille de l’organigramme, liste des variables, nombreuses instruc- 
tions REM, vous voyez que l’on n'oublie pas la seconde ‘‘loi’” (« un pro- 
gramme parfait n’est jamais définitif »). En effet, après de nombreux 
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mois, il est banal que l’on revienne sur un programme pourtant déjà 
bien rodé. Motifs : petites améliorations, actualisations, adjonctions de 
nouvelles options (ou suppression), ou bien encore on s'inspire forte- 
ment d’un ancien programme pour en construire un autre traitant un 
sujet différent. Or, quand on lit un listing « vieux » de trois mois seule- 
ment, on se surprend à se demander « mais pourquoi ai-je fait comme 
ça ? D'où sort ce flag ? Où voulais-je en venir ? » Ce n’est plus du 
BASIC, c'est du « chinois » ! 


NE FAITES JAMAIS CONFIANCE EN VOTRE MEMOIRE. Ce serait 
la troisième loi. 


LA MISE AU NET 


Le programme était relativement court, de ce fait vous n'aviez pas 
fait d'organigramme préalable. Alors faites-le maintenant, à chaud. Idem 
pour la liste des variables. 


Le programme était long et vous aviez fait un organigramme. 
Redessinez-le, mais proprement et sans ratures. Mieux, ajoutez au- 
dessus de chaque pavé /e numéro de ligne où il commence. Ce petit 
raffinement sera par la suite super utile, et peut-être plus tôt que vous 
ne le pensez ! Pourquoi ? Parce qu'il est bon d'ajouter, çà et là quel- 
ques petites sécurités qui éviteront au programme de « planter » suite 
à un concours de circonstances rares mais possibles, beaucoup de lignes 
genre IF... THEN GOTO..., et là vous serez heureux de ne pas avoir 
à chercher la ligne de destination parmi plusieurs centaines. 


Si vous disposez d’une imprimante (quasi obligatoire pour les pro- 

grammes très longs), faites un listing ‘‘final'”, et en haut, inscrivez en 
gros caractères le nom du programme, puis /a date de ce listing (très 
important...) ainsi que le nombre d'octets qu'il occupe. Pour cela fai- 
tes RESET puis PRINT 37629 — FRE(0) (pour l'ATMOS). Pourquoi ? Par 
sage précaution vous aviez fait plusieurs sauvegardes sur des casset- 
tes différentes. Toutes n'ont peut-être pas été mises à jour ? Quelque 
temps plus tard, vous pouvez vous demander « est-ce que c’est le bon 
enregistrement ? » Chargez-le et demandez-lui son nombre d'octets : 
s'il y a une différence. 
Autre cas : c’est le bon programme, mais vous venez de commettre 
une fausse manœuvre du genre taper un nombre puis la touche 
RETURN. « Ai-je effacé une ligne ? ». RESET et demande d'octets occu- 
pés. Ce nombre sera aussi à inscrire (au crayon) sur la cassette, et tenez- 
le à jour. 

Pourquoi ce RESET préalable ? Parce que si le programme a été 
lancé, il y a déjà les DIM et des variables qui ont pris leur place ; en 
faisant RESET, il ne reste que le programme en RAM. 


__Chapitre III _ 


LA NUMEROTATION 
RATIONNELLE DES LIGNES 


Nous venons de voir quelques bonnes habitudes à prendre pour 
éviter de perdre bêtement du temps en maintes occasions. || Va en être 
de même avec la numérotation des lignes, domaine qui de prime abord 
semble bien dérisoire et secondaire, mais qui est en fait une base pour 
des astuces bien pratiques. 


Tout d’abord sachez que le pas entre des lignes successives n'in- 
flue pas sur la vitesse d'exécution, et voici pourquoi. 


Si dans la RAM on décortique octet par octet le contenu d’une ligne, 
que trouvons-nous ? Tout d’abord l'adresse (en hexadécimal sur deux 
octets) de la figne suivante, puis sur deux octets le numéro de la ligne, 
puis des numéros de codes qui correspondent à ce que contient la ligne, 
enfin O0 qui signifie fin de la ligne de programme. 

Revenons à cette adresse de la ligne suivante, c'est en fait celle 
qui suit immédiatement celle où se trouve le 00 final. Donc, avant de 
commencer à exécuter la première ligne, l'ordinateur sait déjà où se 
trouvera la deuxième ligne, qui commencera bien sûr par l'adresse de 
la troisième et le numéro de la deuxième ligne, numéro dont il n’a que 
faire (sauf s'il y a des GOTO ou GOSUB) ! 
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En conclusion, que vous numérotiez vos lignes dans l'ordre 1, 2, 
3, 4 ou 100, 500, 1024, 4215 ne changera strictement rien à la vitesse 
d'exécution du programme. 

Par habitude, on numérote avec un pas de 10, mais en faisant un 
grand saut pour passer à la rubrique suivante, celle-ci commencant par 
un numéro multiple de 100 ou de 1000. 

Exemple : 

Le premier stade de votre programme (premier pavé de l'organigramme) 
va de la ligne 10 à la ligne 90 ; pour le deuxième stade, commencez 
à 200 ou à 300. Non seulement le listing est plus clair, mais cela vous 
laisse un espace de sécurité pour ajouter des lignes au premier stade. 


Pour les numéros de lignes, vous ne serez jamais en manque puis- 
que vous pouvez aller jusqu'à 63999 ! Alors, de grâce, ne soyez pas 
radin, ‘’aérez'’ votre numérotation, c'est gratuit, ça ne gaspille aucune 
place et, répétons-le, ça ne retarde pas... 


QUELQUES NORMES 


1) Débutez un programme à la ligne 10 : c'est un REM qui indique le 
nom du programme et la date de la dernière modification. En 20, le nom 
de l’auteur, etc. Réservez les lignes jusqu'à 50 (environ) pour des REM 
ultérieurs. 

2) Le programme proprement dit commence en 100, mais c'est encore 
un REM donnant le nom du ‘pavé’. 

3) Si vous avez un menu principal auquel le programme retourne sou- 
vent, mettez-le en 1000. Ainsi, en cas d'ennui, de fausse manœuvre, 
vous savez que sur chacun de vos programmes on pourra se tirer d'af- 
faire en tapant CTRL C puis GOTO 1000. 

4) Ne commencez vos sous-programmes (GOSUB) qu'à partir de 5000 
ou au-delà, et de 1000 en 1000 (pas de GOSUB 6730...). Bien que 
l'ordre importe peu, il est plus clair de les classer par genres. Exemple 
série dix mille = pages d'écran, série vingt mille = calculs divers, etc. 
5) La première ligne d'un module est son titre en REM, même si après 
il n'y a qu'une seule ligne. 

6) Une dérogation : vous désirez ajouter un sous-programme qui est 


une variante du module commencant en 12000 : il sera plus clair de 
le mettre en 12500 qu'en 18000. 


7) Pour insérer une ligne entre deux au pas de 10, mettez-la en 5. S'il 
y a deux lignes à ajouter, mettez-les en 3 et 7. Ne mettez jamais deux 
numéros qui se suivent. 

8) N'utilisez pas les lignes au-delà de 40000 ou 50000 (sur ATMOS), 
car elles peuvent être utilisées pour ajouter un sous-programme utili- 
taire chargé par CLOAD‘’ ‘’,J (exemple pratique au chapitre XII). 

9) Pour insérer une ligne provisoire lors de la mise au point du pro- 
gramme, utilisez un numéro se terminant par 9. Exemple entre 620 
et 630 : 

22 


629 PRINT l'END 


Même en faisant LIST à l'écran, un tel numéro se fait remarquer, et 
de ce fait, on ne peut oublier de l’effacer après usage. En revanche, 
si vous aviez utilisé 625... 

10) Une ligne de séparation se termine par 99 ; soit une ligne avant 
le début du module suivant. Exemple : 


9999 END:'........… 


Ainsi, quelle que soit la longueur du programme principal, on est sûr 
qu'il ne risque pas d’enchaîner en final sur le premier sous-programme 
commençant en 10000... Autre cas : 

12999: 


pour séparer les modules commençant en 12000 et 13000 {listing plus 
lisible). 

11) Après la dernière ligne tapée, entrez une ligne REM le signalant. 
Exemple courant : 


63999’ … FIN DE LISTING … 


C'est utile si vous avez une imprimante ou si vous faites publier votre 
programme dans une revue. On est ainsi certain que la fin n'a pas été 
coupée. 


Une petite explication concernant la recommandation (plutôt que 
norme) n° 1, à savoir titre et date en ligne 10 : 10 et 1000 (menu) 
sont les deux seuls numéros de lignes à connaître par cœur (facile ?). 
On vient de modifier une ou plusieurs lignes, on fait ensuite EDIT 10 
pour modifier la date. S'il y a plusieurs personnes autorisées à modifier 
tel programme, la date sera suivie par les initiales de celui ayant fait 
la dernière modification. 


Le nom figurant en ligne 10 doit être celui que l’on utilise après 
CSAVE. Si vous voulez un titre plus explicite, mettez-le en REM en ligne 
20 ou 30. 


D'autre part, en laissant libres les numéros de zéro à neuf, on peut, 
par la suite, y loger 10 lignes de REM pleines de caractères ‘‘bidon'’, 
soit un espace de 800 octets réservé dans la zone RAM programme 
pour y placer une routine en langage machine. 


EFFACEMENT D'UNE SERIE DE LIGNES 


Au BASIC de l'ORIC il manque la fonction DELETE. Heureusement, 
l'éditeur ORIC (que l'on critique souvent à tort), permet d'aller plus vite 
qu'en entrant chaque numéro au clavier puis RETURN. 


1) Listez à l'écran la zone de programme à effacer (Ex.: LIST 200-300). 
2) Amenez le curseur en haut, face au premier numéro. 
3) Placez le majeur de la main gauche sur la touche CTRL, l'index gau- 
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che sur la touche A et l'index droit sur la touche RETURN. La touche 
CTRL peut rester enfoncée en permanence. 


4) Passez en CTRL A les chiffres (seulement) du numéro de ligne, puis 
RETURN, et ainsi de suite. C’est très rapide ! 


Deux cas particuliers : 


— Une ligne de programme tient sur deux lignes d'écran : quand le cur- 
seur arrive sur cette deuxième ligne, tapez RETURN, il vient alors se 
placer au numéro suivant. 


— Vous avez fait une fausse manœuvre, c'est-à-dire que vous avez 
fait CTRL A sur ce qu'il ne fallait pas. Ne faites surtout pas RETURN ! 
Mais avec l'index droit tapez sur la touche X, car CTRL X annule ce 
que vous avez chargé dans le « buffer clavier » (mémoire clavier). Cette 
action va laisser un signe ‘’\”’ (« anti-slash ») sur la ligne d'écran ; si 
c'est une ligne que vous désirez conserver, remonter le curseur par une 
touche flèche avant de faire CTRL X. 


RENUMEROTATION DE LIGNES 


Vous avez tellement fait de modifications de lignes qu'une zone 
du programme n'est vraiment pas belle à voir ; des pas de 1, 2, 3,5, 
20... Heureusement que vous avez laissé de la place avec la rubrique 
suivante pour les numérotations au pas de 10. Renuméroter une quin- 
zaine de lignes sur l'écran, c'est facile : nouveau numéro et CTRL A 
sur toute la ligne. Mais attention, les anciens numéros ne se terminant 
pas par zéro ne vont pas être effacés, d'où des lignes en double exem- 
plaire qu'il faut absolument effacer ! Afin d'éviter cette pagaille, nous 
vous conseillons d'opérer ainsi : 


1) Lister à l'écran la zone de lignes à traiter. 


2) Effacez-les comme expliqué ci-dessus par CTRL A sur les numéros 
(les lignes restent néanmoins écrites sur l’écran...). 


3) Remontez le curseur, et en face de chaque ligne tapez le nouveau 
numéro, puis faites CTRL sur le reste de Ja ligne. 


Deux cas particuliers : 


a) Il y a des GOTO dans certaines lignes. Après listage à l'écran, écrire 
sur une feuille la liste des numéros actuels avec, en face, leurs futurs 
numéros. C’est facile et rapide. Puis renumérotez comme il vient d'être 
expliqué, mais en passant en CTRL A sur la ligne ; changez au passage 
les destinations des GOTO en consultant votre liste de conversion. 


b) La zone de programe à traiter ne tient pas sur l'écran : même 
méthode, rédigez sur papier la ‘‘table de conversion’. Ensuite, atten- 
tion ! Il faut commencer par la fin de la zone. Un exemple : vous devez 
renuméroter les lignes 300 à 450 qui vont devenir 300 à 520. Faites 
LIST 382-450 et opérez normalement, puis attaquez la première moi- 
tié en faisant LIST 300-380. Et n'oubliez pas les GOTO au passage. 
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Vous voyez qu'avec méthode et réflexion, on peut se tirer d’af- 
faire rapidement. 


Deuxième méthode bien plus rapide et élégante si vous disposez 
d'un ATMOS et non d'un ORIC 1 ; utiliser un sous-programme qui va 
faire tout ce travail en moins d’une seconde. 


Ce sous-programme utilitaire a été préalablement enregistré sur une 
cassette à conserver soigneusement. Ses numéros de lignes commen- 
cent à 56000, on peut /’ajouter au programme en cours en le chargeant 
par CLOAD ‘’ ”’,J (décrit au chapitre XII). Ceci fait, tapez (en mode 
direct) : 

GOSUB 56000 (et RETURN) 


En bas de l'écran apparaît alors un petit questionnaire qui vous demande 
la première ligne à traiter, quel numéro elle va prendre, la dernière ligne 
à traiter (donnez bien une ligne existante !) et le pas désiré. Une seconde 
de travail. Là non plus, les GOTO et GOSUB ne sont pas corrigés. Vous 
voulez la liste de conversion ? Tapez GOSUB 56500, et elle apparaît 
à l'écran. Vous préférez cette liste sur votre imprimante, alors tapez 
plutôt GOSUB 56600. 


Vous trouverez le listing de ce sous-programme RENUM au chapi- 
tre XII. Nous nous sommes inspirés du programme publié à la page 73 
du manuel de l'ATMOS (où il est expliqué en détail), mais en amélio- 
rant sur de nombreux points, notamment en lui faisant charger en DIM 
les anciens et nouveaux numéros de lignes. 


Vous allez pouvoir l'utiliser autant de fois que nécessaire au cours 
de votre programmation, mais attention à la définition de DIM à son 
début ! Pour éviter qu'à la deuxième renumérotation l'écran vous 
réponde ‘’Redim Array Error'’, pensez à tout réinitialiser en faisant 
RESET avant GOSUB 56000. 


Quand votre programme sera terminé, vous pourrez effacer notre 
RENUM avant d'enregistrer la version finale de votre logiciel. 
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__ Chapitre IV_ 


MODIFIONS LE PROGRAMME 


Dans ce chapitre, nous allons surtout apprendre à jongler avec l'édi- 
teur ORIC (éditeur = dispositif ROM pour modifier des lignes de pro- 
grammes). Dans le chapitre précédent, nous en avons eu un avant-goût 
avec les astuces pour effacer et renuméroter des lignes, mais on peut 
aller beaucoup plus loin. 


Lorsque l’on est habitué à d'autres micro-ordinateurs, il est nor- 
mal que l’on soit surpris et dérouté par l'éditeur de l'ORIC ; il est vrai- 
ment très spécial, en particulier pour insérer des caractères dans un 
mot ou une ligne. Au début, l’auteur a lui aussi pesté contre l'absence 
d'une touche INSERT, puis une fois bien rodé, on s'aperçoit que ce mode 
d'édition est en fait super-puissant car il permet des acrobaties fort pra- 
tiques qui sont irréalisables avec des éditeurs dits « classiques ». 


Première constation, il serait barbare d'essayer d'apprendre une 
série de modes opératoire, mieux vaut comprendre comment ça mar- 
che, ensuite tout ‘’coule de source’. 


LE PRINCIPE DE L'EDITEUR ORIC 


Contrairement aux autres éditeurs qui lisent la « mémoire écran » 
(la ligne où se trouve le curseur), l'éditeur ORIC ne connaît qu'une seule 
chose, le BUFFER CLAVIER. Cette mémoire contient au maximum 79 


27 


caractères, au 80° (après avoir prévenu par des PING), il se vide 
complètement. S'il y a moins de 80 caractères, une action sur la tou- 
che RETURN va transférer tout son contenu dans la RAM. En cas d'er- 
reur, on peut vider le buffer clavier (annulation) par CTRL X. 


La touche DEL (de DELETE = effacer) efface dans le buffer carac- 
tère par caractère entré en commençant par le dernier, puis l’avant- 
dernier, etc. 


Les touches de flèches et CTRL ne font rien entrer dans le buffer, 
ni sortir (sauf CTRL X déjà vu, et bien sûr CTRL A). 

Le tout est de se souvenir de ce que l’on vient d'EMPILER dans 
le buffer avant de faire RETURN. On charge le buffer soit par CTRL A, 
soit directement par les touches de caractères (lettres, chiffres, blanc, 
signes). À partir de là, tous les coups sont permis. En voici quelques 
exemples que vous ne soupçonniez peut-être pas. 


1) Permutation de deux lignes 


CTRL A sur le premier numéro. Descendre par flèche, et CTRL A 
sur le texte de la 2e ligne. Return. CTRL A sur le 2° numéro puis sur 
le texte de la première. Return. 


2) Scinder une ligne en deux lignes 


CTRL A sur la 1e instruction. Return. Monter ou descendre ou à 
gauche par flèche. Taper au clavier le numéro suivant, puis CTRL A 
sur la 2° moitié de la ligne. Return. 


3) ASSEMBLER DEUX LIGNES COURTES EN UNE LONGUE 


CTRL A sur la 1e ligne. Taper ‘’:’’ au clavier. CTRL A sur seule- 
ment le texte de la 2e ligne et Return. 


A noter que nous n'avons parlé que sur deux lignes, qui peuvent 
être ‘‘distantes'’, et pourquoi pas opérer en « piochage » sur trois 
lignes ? Car des fois on quitte une ligne en cours d'écriture pour aller 
(par les flèches) recopier un passage difficile déjà écrit sur une ligne 
précédente. Autrement dit, outre la copie totale du texte d’une ligne, 
on fait aussi de la copie partielle ; et l’auteur ne s'en prive pas... 


LES TECHNIQUES DE L'INSERTION 


On n'appelle une ligne par EDIT que lorsque la ou les insertions sont 
importantes parce que la ligne d'écran est dégagée. Mais, quand il y 
a plusieurs lignes voisines à modifier, nous préférons notre méthode 
‘’maison'” d'édition plein écran. 

1) On liste le passage du programme à traiter, par exemple LIST 
500-515. 


2) Il faut commencer par le haut, c'est évident, mais voilà qu'on arrive 
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sur une ligne où l’on doit faire une insertion importante. Arrivé au bon 
endroit, par CTRL A, on monte d’une ligne par la flèche et là on tape 
CTRL N, la ligne de travail s'efface (on n'en avait plus besoin) et on 
peut alors y écrire en toute clarté. Après retour par flèches au carac- 
tère départ « deuxième partie », on termine la ligne en CTRL A et Return. 
Donc chaque ligne à modifier va conduire à l'effacement de la ligne 
d'écran au-dessus. Si cela vous contrarie parce que cette ligne supé- 
rieure est en fait le début de la ligne de programme que vous êtes en 
train de traiter, il suffit tout bêtement de monter de deux lignes par la 
flèche, au lieu d'une. 


Si le début de l'insertion se situe vers la droite de l'écran, repérez 
bien l'endroit d'où vous quittez vers le haut, puis déplacez le curseur 
assez loin à gauche par la flèche. 


3) Dans la plupart des cas, il s’agit d'insérer un seul caractère oublié, 
et le plus souvent un blanc (espace). Pour aller très vite, examinez le 
bas de votre clavier et vous constaterez que toutes les touches à 
manœuvrer sont à /a file dans le sens droite-gauche ; flèche haut, barre 
d'espacement, flèche bas et flèche gauche, vous pouvez alors pour- 
suivre en CTRL A. On tape ces quatre touches à la volée sans regarder 
l'écran. Vous avez oublié un caractère quelconque, même manœuvre 
mais en remplaçant la barre d'espacement par le caractère en ques- 
tion, et toujours à la volée sans regarder l'écran. 


Après avor modifié une pleine page d'écran, il est quand même 
prudent de faire CTRL L (très important) et de relister le passage. 


RECUPERATION D'UNE ZONE DE PROGRAMME 


Pour votre nouveau programme, vous aimeriez bien récupérer une 
suite de lignes très fastidieuses à taper (exemple certaines lignes de 
DATA), figurant dans un autre programme. Chargez cet ancien pro- 
gramme. Lister à l'écran le passage convoité (il faut qu'il tienne sur une 
page d'écran). Taper NEW. Repasser les lignes en CTRL A (on peut alors 
modifier les numéros de ces lignes). Le fameux passage est en RAM. 


A ce stade, deux orientations possibles : vous complétez ce nouveau 
programme au clavier, ou bien vous sauvegardez ce passage sur cas- 
sette afin de le réinjecter par CLOAD‘* ‘”,J sur un programme déjà en 
RAM (sur ATMOS). 


Après tous ces exemples, vous admettrez que l'éditeur par buffer 
clavier et CTRL A est en fait un outil super puissant pour celui qui a 
bien compris le principe. 


SUBSTITUTIONS DE LIGNES 


Vous êtes confronté au problème suivant : 
Dans votre programme, les lignes 310, 320, 330 et 340 ont une écri- 
ture longue et complexe et ne vous donnent pas entièrement satisfac- 
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tion (par exemple exécution trop lente). Vous avez une autre idée, mais 
vous ne savez pas si elle sera meilleure que la première. Comment rem- 
placer ces lignes tout en les gardant en secours ? C’est tout simple. 
ll suffit de déplacer leurs numéros dans une zone ‘‘tranquille’”, par exem- 
ple entre l'instruction END et le début des sous-programmes. Lister ces 
lignes et tapez 9 devant chacune d'elles, et CTRL A. Elles sont reco- 
piées en 9310, 9320, 9330 et 9340 ; pour les remettre en place, ce 
sera facile, effacement et retour aux anciens numéros. 


LES PIEGES DE LA LONGUEUR DE LIGNE PROGRAMME 


Lorsque vous tapez une nouvelle ligne de programme contenant 

l'instruction PRINT, vous utilisez le point d'interrogation. Pour le buffer 
clavier chaque ‘‘?’" est remplacé par ‘’PRINT””, soit cinq caractères. Fai- 
tes le petit essai suivant : 
60?:?:? etc. jusqu'à remplir deux lignes d'écran (jusqu'aux deuxième 
PING) et Return. A présent, tapez EDIT 60. La ligne 60 tient alors six 
lignes d'écran plus trois caractères ! Et elle est parfaitement exécuta- 
ble par RUN 60. 


Voilà pourquoi il peut vous arriver d’être dans l'impossibilité de 
repasser en CTRL A une ligne programme devenue bien trop longue 
suite à de nombreux ‘‘?'". Impossible ? Pas du tout ! En repassant en 
CTRL À, à chaque fois que le curseur se place sur le ‘‘P'’ d'un PRINT, 
tapez un ‘’?'”" par dessus, puis passez R, |, N et T avec la flèche droite, 
et reprenez en CTRL A... Le buffer n’a chargé que le ‘’?'" et vous voilà 
sauvé. 


Mettons les choses au pire. A cette ligne surchargée, vous avez 
à insérer d’autres caractères. Deux solutions : ou bien vous scindez 
cette ligne en deux (nous avons vu comment), c'est ce qu'il y a de plus 
raisonnable, ou bien vous supprimez quelques caractères non indispen- 


sables, à savoir les blancs (espaces) et certains ‘’;"" qui se mettent entre 
les CHR$. Exemple : 


? CHR$(27);""J'';CHRS$(4) 
(attention, cela ne marche pas toujours.….). 


LES SAUVEGARDES DE TRAVAIL 


De temps à autre vous prenez la très sage précaution de sauver 
votre programme en cours d'écriture, mais, de grâce, n'écrasez pas l'an- 
cien enregistrement ! Sinon, imaginez une brève coupure de courant 
en cours d'enregistrement. Que vous resterait-il ? RIEN. 


Si votre magnéto-cassette n'a pas de compteur, utilisez alternati- 
vement deux cassettes. S'il a un compteur, enregistrez une fois à 10, 
une fois à 50. 
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Autre astuce utile : dans l’ordre CSAVE, ne répétez pas le futur 
nom de votre œuvre, mais plutôt la date et l'heure. Exemple : 


CSAVE''27-21H30" 


‘Ainsi, en reprenant votre programmation quelques jours plus tard, vous 
verrez, en faisant CLOAD ‘’ ”’, quelle est la version la plus récente (un 
nom de programme peut commencer par des chiffres). 


Autre cas : votre programme fonctionne mais « boîte » un peu, 
et vous décidez une ou plusieurs importantes modifications. Archivage ! 
Si vous avez une imprimante, listez ce programme. Enregistrez-le à l'au- 
tre bout de la cassette (début face B) et notez-le sur le listing d'impri- 
mante pour ne pas l'oublier. Alors là seulement, vous pourrez commen- 
cer le ‘‘’charcutage’’ du programme. Vous avez fait des boulerverse- 
ments considérables, mais hélas cette idée n° 2 ne fonctionne guère 
mieux que l'idée n°1. Archivez de même cette idée n° 2. Alors vient 
l'idée n° 3, très différente de la précédente, tellement qu'il vaut mieux 
partir du listing du programme n° 1. Heureusement qu'il avait été 
archivé ! Si l’idée n° 3 vous donne pleine satisfaction, vous pourrez 
alors détruire les archives n° 1 et 2. Ce petit scénario n'est pas de la 
fiction, c'est une histoire banale parce que courante. 


La petite morale de toutes ces précautions est que la dernière idée 
en date n’est pas forcément meilleure que la précédente. 


Note : On cogite beaucoup plus efficacement sur un listing d'imprimante 
que sur des listings à l'écran. 

Pour un long travail de retouches à l'écran, commencez par taper 
‘’PAPER2"" (vert), vos yeux vous en remercieront… 
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__ Chapitre V — 


L'ESTHETIQUE DES PAGES D'ECRAN 


Il y a deux sortes de programmes : les petits programmes d'essais 
afin de « voir si ça marche », et les... LOGICIELS, c'est-à-dire quelque 
chose dont on va se resservir, qu'on risque aussi de montrer à des amis. 
Pas de débraillé, vos programmes méritent mieux que cela. Un bon pro- 
gramme sans présentation, c'est comme un bon vin dans un gobelet 
en plastique, ça gâche tout... 


Qu'est-ce qu’un programme avec une présentation minimum ? 
Tout d’abord un titre, et bien centré. Puis des explications (exemples : 
les règles de ce jeu, le mode opératoire), donc des phrases, elles aussi 
bien centrées, des lignes espacées et agréablement réparties sur la hau- 
teur de l'écran, et non plus tassées en haut ! 


Ensuite il y a les couleurs, et pas à tort et à travers : vous avez 
sans doute déjà remarqué que certaines combinaisons PAPER/INK sont 
insoutenables, ou illisibles. 


Commençons par ce qui semble le plus difficile : le centrage hori- 
zontal d'un mot ou d’une phrase. Deux cas se présentent : 
— On ne connaît pas la longueur de la chaîne. Il faudra un centrage 
automatique. 
— On connaît la chaîne à afficher (un titre). On mesure sa longueur sur 
l'écran avec une réglette spéciale (fabriquée par vous), et on inscrit sa 
position dans la ligne de programme. 
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LE CENTRAGE AUTOMATIQUE 


La longueur de l'écran comprend 40 colonnes, donc la longueur 
de la marge à gauche est égale à la moitié des colonnes non utilisées 
par la chaîne. Commençons par le cas général où l'on positionne le 
départ en largeur et en hauteur. Essayez ce très court programme (pour 
ORIC-1 utilisez PLOT en ligne 50). 





:( 





SE 
GE END 


Vous constaterez que cette méthode est infaillible. À noter que l’on 
peut inclure la ligne 40 dans la formule de calcul de la ligne 50. Nous 
ne l'avons pas fait afin d'être plus clairs. 


Autre cas : vous ne voulez pas fixer la position verticale, on va 
faire précéder notre chaîne par un nombre calculé de blancs, et ce par 
la fonction SPC. Essayez ceci : 


CALCULE 





126 NT: INEUTUMOT OÙ PHRASE": AE 
120 AzLEN(A#) 

NT:PRINT SPCCCE7-0) /D) AE 
150 GOTO 150 
19@ END 


La grande différence entre les lignes 50 et 140 est que l'origine 
est maintenant 37 et non 40, parce que l'affichage d'écran commence 
sur la colonne n° 2 (la troisième). 


D'autre part, vous remarquerez qu'ici la fonction PRINT commence 
en début de ligne et non en cours de ligne comme précédemment, donc 
il y a effacement de ce qui aurait pu se trouver à gauche du mot. Mais 
il y a encore une autre différence au cas où le PRINT serait suivi d'un 
attribut de couleur papier, par exemple, ESC Q (bande rouge) : dans 
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le premier programme, cette bande rouge partirait du premier carac- 
tère, alors que dans le dernier programme, la bande colorée partiraïit 
en début de ligne ! 


Note : Si le problème est de centrer une chaîne non pas sur l'écran mais 
sur une feuille d'imprimante, il est recommandé d'utiliser le position- 
nement par SPC plutôt que par les instructions spécifiques de votre 
imprimante ; c'est beaucoup plus fiable. 


Enfin, une troisième méthode, c’est par la fonction TAB (pour 
ATMOS, déconseillée pour ORIC-1). 


US CCENTRAGE FAR TE 










A FRINTs IN 
@ EN CAE 
Al 


À] 
F 






VAE CCAG-A) LE AE 





C'est le même programme que le précédent, mais en remplaçant 
SPC par TAB et 37 par 40. On n'y efface pas le début de ligne. 


LE CENTRAGE MESURE 


C'est de loin le cas le plus fréquent quand on rédige un programme. 

Rien n'est plus fastidieux que de compter les caractères, soustraire à 
40 et diviser par deux. Il est tellement plus simple de se bricoler une 
petite réglette en cartoline (Bristol) sur laquelle on lira immédiatement 
le positionnement horizontal ! Il est impensable de la trouver dans le 
commerce car l'écartement des graduations dépend uniquement de 
votre téléviseur. 
La longueur de cette réglette sera environ égale à la largeur de la fenéê- 
tre sur écran. Son bord supérieur est gradué de 1 à 40 (=LEN), et au- 
dessous l'échelle de tabulation horizontale qui en résulte, de 18 à 2 
(=TAB). 

Voici comment la fabriquer en quelques instants : 

— à mi-hauteur de l'écran, tapez sur une seule ligne la suite de chiffres 
1 à 9, O à 9, etc... Donc de 1 à 38 ; 

— placer l'angle gauche de la réglette sous le 1, puis avec un crayon 
recopiez chaque chiffre sur la réglette (sans la bouger...). Il est évident 
que le premier zéro correspond à 10, le deuxième à 20 et le troisième 
à 30. C'est l'échelle LEN ; 

— on n’a plus besoin de l'écran. Sous certaines valeurs de l'échelle LEN, 
vous allez inscrire les nombres suivants (TAB) : 
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Heul2/4/61efoltali4)16]16/20/22]24[26[26 sofa] 24} 
eee eee eee ler) 


Voici maintenant comment s’en servir : 
— en tapant votre ligne de programme, il faut laisser deux blancs à l'empla- 
cement du positionnement horizontal. Puis, vous complétez la ligne avec la 
chaîne à centrer ; 
— placer la réglette sous cette chaîne en disposant le chiffre 1 de l'échelle 
LEN (l'angle supérieur gauche) exactement au-dessous du premier caractère 
de la chaîne. Sous le dernier caractère, on lit sa longueur LEN, on s'en moque, 
et au-dessous le positionnement pour son centrage (échelle TAB) ; 
— faites RETURN, remontez le curseur et repassez la ligne en CTRL À, mais 
en remplaçant les deux blancs par la tabulation lue sur la réglette. RETURN; 
terminé. 





Trois cas particuliers : 


a) LEN est impair, et vous tombez entre deux valeurs ; prenez la plus petite, 
c'est arbritraire, mais si vous prenez une fois la plus grande, une fois la plus 
petite, l'effet s'en ressentira… 


b) Cas très fréquent, la chaîne continue sur la ligne du dessous : on utilise 
enfin l'échelle LEN. Sur la première ligne, repérez cette valeur, par exemple 
14. Sur la deuxième ligne, on prend la suite, donc en plaçant LEN = 15 sous 
le premier caractère. A l'extrémité de la chaîne, on peut alors lire la tabula- 
tion à effectuer. 


c) L'ordre PRINT est suivi d'un ou plusieurs attributs : il faut savoir que cha- 
que attribut provoque un décalage de la chaîne de une case. Vous serez peut- 
être surpris en essayant ces quelques lignes : 





ALAGE FAR LES ATTRIBUTS 
As ORI C-ÉTMOE 
CLS 


FEINTE 











| : PARIEDETSE: 
PRINTELS, 125 CHRE (27) "COUCHER (27) UF 





END 


Donc, à la tabulation lue, il faut soustraire une unité pour attribut. 
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LA REPARTITION VERTICALE 


C'est l'harmonieuse RERO des lignes sur la hauteur de l'écran. Deux 
règles primaires : 
— n'utilisez jamais la ligne n° zéro qui est tout en haut de l'écran, c'est laid 
et peu lisible ; 
— n'entrez pas vos lignes par des PRINT, c'est lourd et souvent aléatoire 
(SCROLLING), mais positionnez vos lignes par PRINTO au PLOT. Sauf pour 
les pages d'imprimante où les lignes seront espacées par des LPRINT. 


L'indice de positionnement vertical peut être compris entre O et 25, soit 
26 lignes. La ligne n° 26 {à ras de la fenêtre) n'est pas accessible en mode 
programmé. 


Le mini-programme qui suit va être très instructif sur de nombreux points. 
ll commence par repérer les numéros de lignes, il illustre la double hauteur 
et espacement double, il donne un exemple d'un encerclement et attend la 
frappe d'une touche en évitant ainsi le « SCROLLING » par le « READY » : 





Hyaés CTaner une To 









LA DOUBLE HAUTEUR (ligne 420) 


ESC J n'est pas suffisant, il faut initialiser par CHR$(4) (= CTRL D}, et 
le répéter en final pour l'annuler. 
Nous l’avons positionné sur la ligne n° 7, numéro impair (c'est obligatoire !), 
et nous constatons qu'il occupe les lignes 7 et 8 (et non 6 et 7...). 
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Dans la ligne 420, nous avons laissé un blanc entre chaque lettre du titre 
car si la hauteur de chaque caractère est doublée, sa largeur reste la même 
C'est une question d'esthétique, à moins que vous ne préfériez le style Be 
nard BUFFET... | 


L'ENTOURAGE 


Nous avons préparé deux chaînes L$ et E$ (lignes 440 et 435) qui 
ont la même longueur. De même, le texte à encercler a lui aussi la même 
longueur, mais commence et se termine comme E$. 


LA SUPPRESSION DE « READY » 


Nous gardons l'écran en suspend par la fonction GET. En ligne 500, 
le « ; » place le curseur clignotant après le mot « touche ». Appuyez 
maintenant sur une touche : le mot « READY » se place en n° 25. 
Tapez une ligne 499 WAIT 500 et refaites RUN. A présent supprimons 
ce disgracieux curseur clignotant par CTRL Q. Ajoutez donc une ligne 


498 PRINT CHR$(17) 
et observez les différences. 


Dans la pratique, on n'utilisera cette ligne 500 que lorsque l'on 
désire que la suite soit commandée par l'opérateur ; en 510 on aurait, 
par exemple, un CLS puis une autre page d'écran. 

Pensez à rétablir le curseur clignotant, si nécessaire et tout au moins 
en fin de programme, par un second CTRL Q1. 


Il y a une autre méthode, plus radicale, pour supprimer l'affichage 
du « READY », c'est de faire POKE 26,96. Pour le rétablir, faire POKE 
26,76. 


LE CHOIX DES COULEURS 


Il faut savoir combiner des considérations purement artistiques et 
d'autres purement techniques : si avec certaines combinaisons 
PAPER/INK les couleurs « bavent » l'une sur l’autre, rendant ainsi le 
texte peu lisible, il ne faut accuser ni le micro-ordinateur, ni le télévi- 
seur, mais vous-même. En effet, la reproduction des couleurs sur un 
écran vidéo est assez spéciale, et vouloir l'ignorer conduit parfois à des 
déceptions. 


LA VIDEO COULEUR 


Lorsque l'écran représente du blanc, examinez avec une loupe la 
surface de celui-ci. On ne voit que des petits rectangles rouges, verts 
et bleus, également lumineux. Vue de loin, notre rétine fait une 
« synthèse additive » et n'y voit que du blanc. Le blanc n'est pas une 
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couleur, mais le mélange « équitable » de toutes les couleurs. Dans les 
tubes couleur modernes, il s'agirait plutôt de lignes verticales en « poin- 
tillés » rouge, vert, bleu, rouge, vert, bleu, etc. (voir figure V1). Remar- 
quez qu'après chaque « triplet » horizontal, il y a un décalage d’une 
demi-hauteur avec le triplet suivant. Gardez votre loupe et faites un 
écran rouge (PAPER 1). On observe alors une ligne verticale rouge sui- 
vie de deux lignes noires. Idem pour les deux autres couleurs « primai- 
res » vert et bleu. Par contre, avec les trois autres couleurs, nous aurons 
deux lignes colorées pour une seule ligne noire. Résumons-nous : 


D Joueur foros 


noir 
rouge 

vert 
jaune 

bleu 

magenta 

cyan 
blanc 


















NO C1 B & N = O 





Si on fait PAPERG:INK1 (ou l'inverse), nous avons chaque ligne ver- 
ticale éclairée séparément ou par PAPER ou par INK. Il en résulte une 
excellente netteté verticale, mais une sorte de flou sur les motifs hori- 
zontaux ; flou dû aux décalages verticaux d'un triplet à l'autre. 


A présent faisons PAPERG:INKS (ou l'inverse), les petits rectan- 
gles bleus vont être éclairés à la fois par PAPER et INK : la netteté hori- 
zontale est améliorée alors que la netteté verticale est un peu moins 
bonne. C'est un compromis dont l'effet est préférable au précédent. 


Faisons maintenant une combinaison PAPER/INK avec deux cou- 
leurs primaires seulement, par exemple, PAPERA4:INK2. Les lignes de 
rectangles rouges sont donc toutes en noir, et l'effet n’est pas très joli 
car nos lettres présentent un liseré noir à gauche et en bas. 


Et avec une seule couleur ? Faisons PAPERO:INK2. Les lettres ver- 
tes sur fond noir sont nettes, mais ces traits verts étroits apparaissent 
comme piquetés de noir, alors que si on fait l'inverse (PAPER2:INKO), 
les lettres noires paraissent nettes et homogènes, donc nettes, et le 
piquetage noir du fond vert n'apparaît plus ! 


Revenons au fond noir. Avec des lettres en couleurs primaires 
(B,V,R,), vous aurez des caractères « sales » mais nets. Avec des let- 
tres en couleurs composées (jaune, magenta et cyan), vous aurez des 
caractères plus « brillants » mais avec un flou sur les traits horizontaux, 
surtout en magenta |! 

En revanche, sur fond blanc, toutes les couleurs donnent des caractè- 
res nets. 
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Nous avons voulu montrer l'explication technique de ces quelques 
nettetés bizarres, et pour vous rassurer, sachez que la presse techni- 
que est unanime pour louer l'excellente netteté des couleurs obtenues 
par l'ORIC-1 et l’'ATMOS. 


Il y a cinquante-six combinaisons PAPER/INK (8 x 7 = 56), et il est 
difficile d'indiquer une formule qui ne donnerait que des combinaisons 
agréables, tant les cas particuliers sont nombreux. 


Voyons à présent le côté « artistique ». Il y a des couleurs « chau- 
des » (jaune, rouge, blanc) et des couleurs « froides » (cyan, bleu, noir), 
des teintes claires (jaune, cyan, blanc, vert) et des foncées (noir, bleu, 
rouge, magenta). S'il s'agit de texte, il faut du contraste pour une meil- 
leure lisibilité, soit en opposant chaude/froide ou claire/foncée, ou encore 
chaude et claire/froide et foncée. En revanche, un tel contraste est péni- 
ble, trop « criard » dans des dessins en HIRES où les surfaces en INK 
sont bien plus importantes. Un exemple : un texte en rouge/magenta 
est peu lisible, mais mis côte-à-côte, c'est agréable. Essayez ESC Q 
(bande rouge) et au-dessus ESC U (bande magenta). Même remarque 
pour vert/jaune). 


Note : Le manuel ATMOS, page 313, comporte une erreur dans la 
légende des broches de la prise RVB : borne n° 4 lire « SYNCHRO » 
et non « CYAN ». 


Pour afficher un attribut en mode direct, par exemple ESC OQ, il faut 
d’abord enfoncer seule la touche ESC, et après la lettre (pas simulta- 
nément !). 


UTILISONS LES ATTRIBUTS 


Grâce à eux nous allons pouvoir égayer nos pages d'écran avec 
plusieurs couleurs de fonds et de lettres simultanément, voire même 
plusieurs couleurs de lettres sur une même ligne (beaucoup ont écrit 
que c'était impossible, nous montrerons le contraire) | 


Le manuel d'origine ORIC n'est pas très clair sur les différentes 
façons de coder ces attributs, aussi nous préférons les résumer dans 
le tableau V1. 

Pour obtenir l'encre rouge sur une seule ligne, nous avons le choix 

entre trois écritures (à la suite d'un ordre PRINT positionné ou non). 
CHR$/27)''A""; ou CHR$(27);CHR$(65); ou CHR$ (129);. 
Dans ces écritures, 27, 65 et 129 sont respectivement les codes ASCII 
de ESC, A et attribut bande rouge. Essayez le petit programme suivant, 
et remarquez l'effet de sa seconde partie (la ligne 650). Nous avons 
utilisé le troisième mode d'écriture des attributs : avouez qu'il est plus 
rapide à écrire ! 
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Led dé TC 
CENT CHERE CT us MNEX 





CHRS(27)'" . 
Encre noire 
Encre rouge 
Encre verte 
Encre jaune 
Encre bleue 
Encre magenta 
Encre cyan 
Encre blanche 
Texte standard (lettres) 
Texte 1/2 graphique 
Hauteur double en lettres 
Hauteur double en 
1/2 graphique 
Clignotant en lettres 
Clignotant en 1/2 graph. 
Clignotant haut. 
double lettres 
Clignotant haut. 
double 1/2 graph. 
Papier noir 
Papier rouge 
Papier vert 
Papier jaune 
Papier bleu 
Papier magenta 
Papier cyan 
Papier blanc 


Code global 
































Fc—-rzOnmoowx €) 





ES<C-rnT7PT © zzr 


Tableau V1 : Les trois manières de coder un attribut de ligne. 
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Abordons les attributs d'encre. Entrez ce petit programme et regar- 
dez l'effet des lignes 740 à 770. Chaque lettre est d'une couleur diffé- 
rente mais elles sont séparées par un espace, lequel est provoqué par 
chaque attribut. 


GR 'ATTRIEUTÉ D'ENI 
JL CLEO s ÊTE 
Fa 











PRIE CI 
ENT: INT: FCE 
PRINT TAE C1 à CHE 









760 
770 
794 


ist; 


Et maintenant combinons les attributs, faisons un titre en double 
hauteur dans une ‘‘fenêtre’’, avec sous-titres en d'autres couleurs (nous 
reprenons en partie l'exemple des lignes 400 à 500). 





048 FARINT 
PUF 1) 
NE XT 


FCINTE, lé 





Analysons certaines lignes : 
Sur le titre en double hauteur (en lettres noires puisque INK n'est pas 
spécifié), nous allons superposer trois « segments » jaunes qui vont 
constituer la fenêtre jaune. On est en fond cyan, donc on tronque l'ex- 
trémité de ces bandes jaunes par une bande cyan. Tout est dans la ligne 
840, répétée trois fois par la bande FOR NEXT de la ligne 830. 
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En ligne 860, nous écrivons la phrase « C'est facile à programmer » 
en trois couleurs de lettres, mais observez bien que nous n'avons pas 
mis d'espace au début de chaque tronçon puisque l’attribut d'encre va 
faire ce décalage. 

En ligne 870, nous combinons l’attribut d'encre et l’attribut de cligno- 
tement, soit deux attributs. Remarquez sa tabulation à 10 alors qu'elle 
était à 12 dans la ligne 500... Rappelons que le CHR$(17) efface le 
curseur clignotant. 

En ligne 880, après avoir tapé une touche, nous restituons le curseur. 


En paramétrant (paramétrer = obtenir par calcul) le numéro de code 
de l’attribut dans des boucles FOR NEXT, ralenties ou non par des WAIT, 
on peut obtenir très simplement des effets colorés originaux, voire ani- 
més.Voulez-vous vous amuser un peu ? Alors tapez le programme sui- 
vant. Vous pourrez en faire un générique pour votre logiciel préféré en 
l'adaptant à vos besoins, mais, avant de l'écrire, quelques avertisse- 
ments : 


— La ligne 915 est facultative, elle sert à effacer le mot « CAPS » en 
haut de l'écran : on lui superpose quatre espaces dans la mémoire 
d'écran. 

— Ligne 940 : POKE 26,96 efface le « READY » (rappel). 

— Ligne 950 : mettez votre nom dans la couleur qui vous convient (ici 
magenta). 

— Ligne 960 : après avoir tapé une touche quelconque, CALL # 247 
ou CALL 583 (pour l'ATMOS) provoque le RESET, ce qui restituera le 
« CAPS », le curseur clignotant et le « READY », mais sans effacer le 
programme... Attention ! Pour un ORIC-1, c'est CALL# 22B ou CALL 
555. 










CHRGE € 1709 
AG é EL, 
1 QUE NI 
LAC: NEXT 

JÈCE CL A4 GT Mol ui 













s(] 


oo NEdi Lions 





, 265 CHRE (1 
” 


E D'UI 
Nat TO 
INTCHESE (ND 3 SF 








(ED 32 NEXT: RETURN 





| La ligne 920 détermine la moitié supérieure, la ligne 930 la moitié 
inférieure. On peut modifier le dessin en changeant les valeurs de B. 
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Chapitre VI 


LES DONNEES : ENTREZ SANS PLANTER 


I n'est pas suffisant qu'un programme soit performant, il faut aussi 
que l'utilisateur soit dans l'impossibilité de le bloquer accidentellement. 
Ce point est primordial. 


Ne dites pas « l'utilisateur, ce sera moi, et je connais bien mon pro- 
gramme ». Aujourd'hui certes, mais cela ne sera plus vrai quelques mois 
plus tard. Un oubli, une étourderie au clavier et c'est le plantage hon- 
teux. Que faire ? RUN et tout recommencer ? Rechercher fébrilement 
le listing afin de déterminer quel GOTO fera le sauvetage ? Ni l’un, ni 
l’autre : il fallait prévoir des SECURITES sur chaque entrée clavier (on 
dit aussi « saisie de données »). 


Une ligne de sécurité s'écrit en moins de quinze secondes, tandis 
que débloquer un programme peut prendre un bon (?) quart d'heure. 
L'erreur peut être répétitive, la sécurité est définitive. 

Tout logiciel digne de ce nom doit être conçu pour un utilisateur 
peu intelligent, étourdi et ignorant tout du BASIC. 

Heureusement c'est facile, simplement quelques bonne habitudes à 
prendre. 


POUR ENTRER DES NOMBRES 


Bannissez à tout jamais cette écriture de débutant : 
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NE FAS FAIRE 
INT'ERIX Ps INPUT FR 


5@ END 






A l'écran vous aurez le ‘’?'" et le curseur sous ‘’PRIX ?'’. Pas très 
joli. Ce serait déjà mieux si l'entrée (le curseur) était sur la même ligne, 
et avec un seul ‘’?"’ au lieu de deux ! Les effets des lignes 110 et 120 
sont rigoureusement identiques, mais la seconde manière est plus 
courte. 





188 CENTF SUR Lé MEME LIGNE 
114 FRINTOPFETX "ss INFUT FK 
1é@ INFUITPPOIDS "ss FD 

1964 END 







En effet, cette écriture est dangereuse. Pour vous en convaincre, 
au lieu de taper le nombre 110, vous avez laissé un doigt sur SHIFT 
et vous avez entré (!). Regardez le massacre ! Sous notre ligne appa- 
raît ‘’?REDO FROM START'" (= refaites depuis le depart), et une ligne 
encore plus bas, le ‘’?"" et le curseur vous invitent à entrer une valeur 
numérique. Le programme n'est pas bloqué, mais vous pouvez dire adieu 
à l'esthétique de votre belle page d'écran ; surtout si ces deux lignes 
ont effacé quelque chose ! 

Pour éviter cette banale mésaventure, il y a deux règles d'or à tou- 
jours respecter : 

— Pour entrer un nombre, on le demande sous forme de chaîne, puis 
on le vérifie et on le confirme par la fonction VAL. 

— La ligne contenant INPUT doit débuter par un positionnement sur 
l'écran. Exemple : 


2ÛG “SECURITE CHIFFRES F&R VAL 
CLS 





FE 


“ PRSVALCFR 
SAR IF FReQ AND FRE< "a" 
290 END 








Vous constatez que la ligne 240 refusera les lettre ou signes de 
ponctuations, mais acceptera le chiffre zéro. D'autre part, en cas d’er- 
reur, la ligne 220 se réécrit au même endroit. 
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Mais il y a mieux : supposons que l’on ait entrée ‘’ABCDE”", le cur- 
seur revient sur le A en laissant derrière lui ‘’BCDE””. Il faudra donc taper 
les chiffres sur ces lettres. Avouez que cela ne fait pas très propre. C'est 
l'occasion d'inclure un CTRL N, qui efface la ligne, et qui s'écrit PRINT 
CHR$(14). 


EFFACER 







El, LG CMPX CL 4) 4 8 LMEUITORERTX 


PSE CENQUOTHEN EG 


Donc, quelle que soit la « bêtise » entrée, la zone d'entrée reste 
propre. Mais attention, le CTRL N efface toute Ja ligne, et non à partir 
de la 12e colonne. Donc un seul INPUT par ligne. Mais, rassurez-vous, 
nous verrons une autre façon de nettoyer la zone d'entrée sans effa- 
cer le reste de la ligne, et ce dans un autre programme de ce même 
chapitre (ligne n° 570). 


En fait, il faut signaler un cas particulier, mais hélas fréquent, où 
nous n'avons pas trouvé la parade. Dans le programme 200-290 ou 
300-390, essayez de répondre par la touche RETURN. II se passe le 
phénomène suivant : le curseur ‘’?'" passe à gauche de la ligne au- 
dessous et attend l'entrée numérique ; la ligne 340 est inefficace mais 
c'est l'équivalent à un ‘’REDO FROM START’. Vous pouvez toujours 
essayer d'ajouter une ligne du genre IF PR$=""" (chaîne vide) ou 
CHR$(13), rien n'y fait, c'est un BUG ORIC... 


Si cela vous arrive, tapez un blanc (barre d'espacement) et 
RETURN, le curseur revient alors à sa bonne place. 


LES CODES D'INTERVENTIONS 


L'écran vous demande d'entrer une suite de valeurs, mais vous 
êtes seul à connaître leur nombre ; il faut donc prévenir le micro- 
ordinateur quand vous avez terminé la saisie de données. Par exemple, 
le code de fin sera la lettre Q, initiale de « quitter ». Voici un petit pro- 
gramme qui calcule l’âge moyen d’un groupe quelconque de personnes : 
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AGE MOYENNE D'8GE 

SLA CLSs Nes Téefis NOMBRE, TOTSL 
415 PFRINTELG, GE JR QUITTER 
4e FRINTE 
Ma AGE 
SU IF BCE 
A4 AG 
SG | 
444 GOT 4 

474 CLS: FRINTES, 
g'sNs"peE 
454 FARINTE 


" 





470 
AG=Q THEN 420 


1Gr"L'age maven de Ce 







utest des INTÉTASN +4 
pans. 


FARINTATG, es SPC CIE) 





END 
Analysons : 
Ligne 410 
Il n'était pas utile d'initialiser N et TA ; c'est pour la clarté. 
Ligne 415 
On affiche le code au bas de l'écran. 
Ligne 430 
Q saute la validation et le comptage. 
Ligne 440 
On refuse l'âge zéro (normal...). 
Ligne 450 


Les incrémentations de N et TA ne se font qu'après validation de 
l'entrée. 

Ligne 480 

Il serait stupide de donner le résultat avec six décimales, on l'arrondit 
à l'entier /e plus proche (par le +.5). 

Ligne 485 

On efface la légende du code pour faire plus propre. 

Un autre code d'intervention est la lettre E lorsque l'on se rend 
compte que l’on a commis une erreur, mais on a déjà appuyé sur la 
touche RETURN. Deux possibilités pour ajouter une telle ligne (en 435) : 
le code E renvoie en 410 et on doit alors tout recommencer ; ou mieux, 
on implique alors que N=N-— 1 et que TA =TA — AG (qui est toujours 
en mémoire) et enfin retour en 420. Il faudrait aussi modifier les lignes 
415 et 485 pour signaler que l’on dispose aussi de l'option Erreur = E. 


Il faut absolument retenir que les codes d'interventions en service 
doivent être mentionnés (légendes) au bas de l'écran. En effet, si l’opé- 
rateur a affaire à plusieurs tableaux de saisie, comment voulez-vous 
qu'il sache (ou se rappelle) qu'il a la possibilité de corriger ou non une 
erreur ? 
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LA SAISIE PLEINE PAGE 


Dans l'exemple précédent, les valeurs entrées disparaissent de 
l'écran, et si la liste est longue, on risque brusquement de ne plus savoir 
oùonenest ! Il est donc souvent souhaitable de conserver un contrôle 
visuel sur ce qui a déjà été entré. Dans le programme « moyenne 
d'âge », on pourrait faire afficher les âges entrés en colonne sur un côté 
de l'écran. Pas très joli mais efficace, car ici le problème était simple 
puisque c'est toujours le même nom de variable AG. Malheureusement, 
dans la pratique, ce cas est fort rare, et nous devons entrer sur plu- 
sieurs noms de variables ; il faut donc que : 


a) les localisations des INPUT se fassent à des endroits différents de 
l'écran ; 

b) après avoir entré une donnée, il faut que le curseur aille se placer 
automatiquement sur la zone d'entrée suivante. 


C'est la « saisie pleine page ». C'est facile avec une quinzaine de 
questions. || suffit de les afficher les unes au-dessus des autres ; vous 
savez le faire. Mais vous devez remplir les cases d’un tableau, par exem- 
ple, quatre colonnes sur douze lignes, soit quarante-huit valeurs... De 
ce fait l'écran devra représenter ce tableau, avec légendes des colon- 
nes et des lignes, et avec bien sûr le déplacement automatique du cur- 
seur clignotant à la case suivante. 


Le programme qui suit n’est pas seulement une démonstration, 
c'est un « produit fini ». Non seulement nous vous invitons à le taper 
au clavier pour en « toucher » le mécanisme, mais nous vous conseil- 
lons de l'enregistrer sur cassette, car il ÿ a neuf chances sur dix pour 
qu'il vous serve personnellement. Vous n'auriez alors qu'à modifier les 
légendes de colonnes de la ligne 520. 


Les douze lignes représentent le mois, les quatre colonnes des 
« postes » d'entrées ou de sorties, d'argent, d'heures, d'objets, à votre 
guise. Chaque entrée validée va aller se placer dans un tableau DIM 
BL (12, 4) ; BL voulant dire « bilan annuel ». Nous allons profiter de 
l'occasion pour lui faire calculer chaque total ligne que l’on appelle TM 
(total mois) et chaque total-colonne T, d'où le total annuel global TA. 
Non seulement ces sous-totaux vont s'afficher sur l'écran, mais nous 
les mettons aussi en DIM. Où cela ? Mais dans les indices zéro. En effet, 
rappelons que lorsque l’on définit un tableau DIM BL (12, 4), on dis- 
pose en fait des lignes O à 12 (soit 13) et des colonnes O à 4 (soit 5). 


Afin de ne pas alourdir davantage, nous n'avons pas introduit de 
code d'erreur, mais comme maintenant vous savez faire... 





BILAN AMNUETL. 
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MÉAUTHEN 






1 guet EXT 


(A, C JINEXT 


ip 
PT ass "TOTAL ANNLIEL à Ma Té 
E ND 
é CTÉT AL. MÉNSLIEL. 
1B1 FOR 








14444 
LAS HET UN 


Analysons quelques points de détails : 

Ligne 520 

Une façon de légender des colonnes autrement que par TAB. Avan- 
tage : cette chaîne peut s'appeler LE$ si ce programme devrait être 
appelé par un GOSUB. Ainsi, en changeant LE$ avant ce GOSUB (dans 
le programme principal), vous pourrez entrer plusieurs bilans avec des 
quartés de postes complètement différents. De retour au programme 
principal, vous pourrez archiver chaque bilan sur cassette par la fonc- 
tion STORE. 


Ligne 530 

Première boucle FOR NEXT, on traite d’abord par ligne, donc par mois, 
lequel s'inscrit dans la colonne « MOIS ». 

Ligne 550 

Seconde boucle FOR NEXT, imbriquée dans la première, on traite cha- 
que colonne. 

Ligne 560 

C'est le positionnement paramétré de chaque INPUT. 


50 


Ligne 570 (fin) 
Comme nous ne pouvons effacer une erreur par CTRL N, nous affichons 
huit blancs à la place. 


Ligne 580 
Ça, c'est un gadget ! Les ‘‘?’’ laissés par les INPUT précédents, ne sont 
guère esthétiques, aussi sont-ils remplacés après usage par ce petit trait 
vertical (la touche en haut à droite + SHIFT). D'une ligne à l’autre, ils 
construisent ainsi des traits verticaux continus qui vont séparer les 
colonnes. 


Lignes 1020-1030 

En fin de ligne, le total mensuel est calculé et affiché, mais pour éviter 
de perdre de la place et afin d'avoir les chiffres des unités sur une même 
colonne, nous paramétrons le positionnement du PRINT par la longueur 
du nombre (ligne 1030). 


L'ATMOS dispose un blanc devant chaque nombre affiché par 
PRINT. Aussi, si on transforme le nombre 24 en chaîne, par STRS, la 
longueur LEN de cette chaîne est trois = 1 blanc et 23". D'où le ‘ — 1" 
à la fin de la ligne 1020 (à vérifier sur ORIC-1...). 


Que de valeurs sur le même écran ! Quelle vue d'ensemble ! Si 
vous avez une imprimante, c'est le moment de lui commander une copie 
d'écran (nous verrons comment dans un chapitre ultérieur), avec en 
plus la possibilité d'archiver ces 65 valeurs (48 entrées, 17 calculées) 
en commandant STORE BL, ‘‘FRAIS SPORT 84’, par exemple. 


Si vous n'avez pas encore une grande habitude des tableaux DIM 
à plusieurs dimensions, ce sera pour vous l’occasion de « fixer les 
idées ». Le tableau terminé, interrogez-le en mode direct, en tapant, 
par exemple : 
PRINT BL (7,2), BL (7,0), BL (0,0) et RETURN 


Note : Il existe dans le commerce de coûteux logiciels appelés 
« .….CALC... » qui effectuent des saisies de tableaux. Etant polyvalents, 
ils sont lourds à définir (nombreuses options demandées). Vous cons- 
tatez que, lorsque l'on sait se servir du BASIC, on a souvent intérêt 
à s'en faire un « sur mesures ». Enorme gain en mémoire et vitesse 
de mise en « opérationnel » plus rapide, puisque sans options. Quant 
au prix... 


LES ENTREES DE CHAINES 


Nous allons très souvent faire appel aux fonctions LEFTS$, MID$, 
RIGHTS ; et pour vous éviter de revoir le manuel, nous en faisons tout 
de suite une brève description. 

Elles servent à LIRE une partie de la chaîne citée. Les indices 
commencent à 1 et non à zéro. Exemple : LEFT$(A$,4) donne les qua- 
tre premiers caractères en partant de la gauche, tandis que 
RIGHT$(A$,4) prend les 4 premiers caractères en partant de la droite. 


51 


MIDS$S(A$,4,2) va prendre deux caractères à partir du quatrième en par- 
tant de la gauche ; ce qu'on appelle les caractères numéro 4 et 5.0K ? 


Attention, une lacune souvent gênante dans le BASIC des ORIC : 
la fonction WMID$ ne peut servir à écrire dans une chaîne existante ; 
ainsi, en faisant MID$(A$,4,2)='‘XXW'', vous aurez droit à un 
“’SYNTAX ERROR’’ (dans la plupart des BASIC, MID$ peut à la fois 
lire et écrire). 


Nous reviendrons plus en détail sur ces fonctions au chapitre IX. 


Lorsque l’on entre une chaîne par un INPUT, il est souvent néces- 
saire de la « formater », c'est-à-dire lui imposer une longueur maxi, mini 
ou fixe, parce que la suite du programme l'exige, pour détecter des 
erreurs d'entrées, ou pour obtenir une belle présentation sur une feuille 
d'imprimante. 

Les quatre exemples suivants illustrent les utilisations fréquentes 
de ces divers formatages de chaînes : 







LNFLITONOM ES NE 


RIFTE 











te 





CHR AINE FC ET É 


5 LMPLI CROIS MERE 





GITE 
"OUT TTER 
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LHPLITOGLIARIT 


4. mn 
“Tu nm +14 





Dans le premier programme, nous vous avons ajouté la ligne 1140 
pour montrer que l'ORIC accepte d'essayer de tronquer à 8 une chaîne 
de longueur inférieure à 8. 

Le dernier programme (1400-) est très important, car les lignes 
1440 et 1450 ont le même effet que la fonction BASIC PRINT USING 
que ne possèdent pas les ORIC. Vous remarquerez que les nombres 
entrés s'affichent à droite de l'écran parfaitement alignés sur les chif- 
fres des unités. Cette pratique est vivement conseillée pour présenter 
des colonnes de nombres sur imprimantes. Pour des nombres décimaux, 
c'est plus compliqué, nous verrons cela dans un chapitre ultérieur. 


LA FONCTION GET 


La fonction GET diffère de INPUT par les points suivants : 


— elle n'attend qu'un seul caractère (pas de ‘‘?"') ; 

— elle ne l'affiche pas à l'écran ; 

— il n'est pas utile de faire RETURN ; 

— si elle attend un chiffre et que l'on entre une lettre, le programme 
« plante » avec le message ‘’TYPE MISMATCH ERROR"’' ; donc sans 
‘’REDO FROM START'' qui lui ne bloquerait pas le programme. 

De ce fait, on n'écrit jamais GET N, c'est trop risqué, mais plutôt 
GET R$ (R = initiale de réponse). 

On l'utilise soit pour interrompre un programme (lecture d'écran), 
lequel repart dès que l'on frappe une touche quelconque, soit pour 
répondre à un menu. Exemple pour un programme rassemblant quatre 
jeux 
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1550 FRINT&1?,16;"4— SLALOM" 
1560 FRINT@IZ,18;"S- QUITTER" 

1570 FRINTEL6, 243 "RÉPONSE: "5: GET RE 

1SB0 ReVAL(RH)LIF R£i OR R25 THEN 157 
Gi 

1590 ON F GOSUE 170004,16700,700m0, 
mA, 1698 

1604 GOTO 1500 

1694 CLS:END 











(a 


Remarquez qu'à la fin d’un jeu on revient au menu. 
e 


LA FONCTION KEY$ (KEY = touche de clavier) 


KEY$ désigne le caractère se trouvant dans le buffer clavier, il n’a 
donc aucun pouvoir d'arrêt sauf si on le teste par une condition pré- 
cise. Son usage classique est dans les jeux d'arcades pour décéler si 
l'opérateur a tapé une touche (flèches) ; le tout généralement dans une 
boucle REPEAT/UNTIL. Mais rien n'empêche de l'utiliser dans une bou- 


cle FOR NEXT. Exemple : 


1700 ‘INTERVENTION FAR KEY# 
1714 CLS:FRINT'TAFEZ A":FPRINT 
1720 FOR Iel TO 10000 

1720 CH=HEY# 

1740 IF CH="A"THEN PRINT 1 
1750 NEXT:FRINT'TERMINE !" 
1790 END 
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Chapitre VII 


LA BONNE GESTION 
DES DIM, FICHIERS ET DATA 


C'est simple lorsqu'il y a relativement peu de données et que l'on 
ne s’en sert qu'une fois ; au-delà il ÿ a souvent des mauvaises surpri- 
ses du genre ‘‘REDIM ARRAY ERROR’", ‘OUT OF DATA ERROR''... 
L'ORIC, comme beaucoup de micro-ordinateurs, ne possède pas de 
fonction ERASE pour « vidanger » un tableau DIM, ou le RESTORE avec 
numéro de ligne. Il faut donc bien préparer son affaire avant de pro- 
grammer. Si vous avez de /'ordre dans vos DIM et vos DATA, vous 
pourrez, en très peu de lignes, gérer et stocker un nombre considéra- 
ble de données numériques et alphanumériques (= chaînes). 


MIEUX CONNAITRE LES DIM 


INITIALISATION 


C'est en début de programme que l’on « annonce » ses DIM, même 
si l'on s'en sert que beaucoup plus loin. Mettez-les sur une même ligne ; 
il ne sera alors pas utile de répéter ‘DIM’, il suffit de les séparer par 
une virgule. 

Exemple : 
30 DIM BL(12,4), AC$(24), RD%(520), Z{(5). 
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Comme pour les variables, nous avons droit à deux caractères, plus 
le suffixe $ ou %. 


On peut s'abstenir de DIMensionner un tableau si le nombre n’'ex- 
cède pas 10, mais ne croyez surtout pas faire des économies de 
mémoire, bien au contraire ! Si vous entrez quelque part P(1)= 124, 
aussitôt un micro-ordinateur établit lui-même un DIM P(10) ! Si vous 
n'avez que quatre valeurs, c'est un gaspillage d'environ 40 octets ; il 
aurait mieux valu annoncer dès le départ DIM P(4). 


Une fois annoncé, il n’est plus possible de redimensionner un 
tableau DIM, ni même de le répéter ! Ainsi, plus loin, si nous redisons 
DIM AC$(24), c'est le plantage avec code d'erreur. C'est pour ne pas 
risquer qu'un GOTO provoque un ‘‘REDIM ARRAY ERROR'"" (ARRAY = 
tablau, réseau) que nous placerons nos annonces de DIM en début de 
programme. Pour « effacer » ces dimensions, il y a deux ordres possi- 
bles, RUN ou CLEAR, mais dans les deux cas vous perdez toutes vos 
variables. 


L'ESPACE MEMOIRE 


L'emploi des DIM est assez traitre en ce qui concerne leur encom- 
brement mémoire, il faut se méfier et calculer. Ainsi, notre tableau 
BL(12,4) occupe (12 +1) x (4+1)x 6 octets = 390 octets (+ ce qu'il 
faut à la fonction DIM). 


Dans l'exemple de notre ligne 30, nous avons annoncé DIM 
RD% (520), soit 521 nombres entiers de deux octets chacun, donc au 
minimum 1042 octets. Or, si nous n'avions pas utilisé le « % », ce serait 
le triple ! 


Méfiez-vous également des tableaux de chaînes, à raison de 1 octet 
par caractère, ça monte parfois très vite en mémoire. 


LES DIM A TROIS DIMENSIONS 


Nous savons que DIM Z(5) est une liste banale, que BL(12,4) est 
un tableau de 13 lignes en 5 colonnes {les indices zéro à ne pas 
oublier...), mais que représenterait DIM BG(12,4,2) ? C'est tout sim- 
plement plusieurs tableaux (12,4) ‘‘superposés'” en quelque sorte en 
rez-de-chaussée et deux étages. Soyons plus concrets en reprenant 
notre tableau de bilan annuel BL(12,4) du chapitre précédent : 
BG(12,4,1) sera le bilan 1984, BG(12,4,2) le bilan 1985, et BG(12,4,0) 
pourra être au choix le bilan 83, ou le total, la moyenne ou la variation 
en % entre 84 et 85. Donc trois tableaux (12,4) de structures identi- 
ques, mais d'intitulés différents. 
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LES DIM À PLUSIEURS DIMENSIONS 


On a la possibilité d'annoncer DIM BV(12,4,2,3) et puisque 
BG(12,4,2) représentait une pile de trois tableaux, ce DIM BV repré- 
sente un ensemble regroupant quatre de ces piles, par exemple, pour 
des quartés de colonnes différentes. 


On peut même aller plus loin ; la cinquième dimension est admise, 
mais alors là, deux conseils : prenez des notes claires et détaillées pour 
vous y retrouver... et faites le calcul de l'encombrement mémoire. 


LA REUTILISATION D'UN TABLEAU DIM 


Vous avez rempli un tableau DIM W{(45) et vous voulez le regarnir 
avec d’autres valeurs. Trois cas se présentent : 


e On sait que tout sera renouvelé ; aucun problème, les nouvelles 
valeurs écraseront les précédentes. 

+ On sait que l'on ne va pas le remplir complètement, mais on sait d'où 
à où, par exemple de W{(1) à W(27). Ce n'est pas très gênant car on 
l'exploitera ensuite de 1 à 27. 

° Même cas que précédemment, mais on ne veut pas qu'il subsiste 
des données anciennnes, par exemple parce que l’on va enregistrer en 
fichier par STORE. Il faut donc le ‘‘laver'’avant de le regarnir. Cette mise 
à zéro est simple et rapide : 


FOR N=0O TO 45:WIN) =O:NEXT 
S'il s'agissait d’un tableau de chaînes AC$(24) : 
FOR N=0O TO 24:AC$(N) =" ‘’:NEXT 


S'il s'agit d'un tableau à plusieurs dimensions, il faut utiliser des bou- 
cles FOR NEXT imbriquées. Vous savez faire. 


LE TABLEAU CENTRE DE CALCULS 


Si vous avez de nombreux calculs à effectuer sur les données 
entrées dans un tableau DIM, prévoyez des colonnes et des lignes sup- 
plémentaires pour des résultats intermédiaires ou définitifs ; mais, de 
grâce, ne sortez surtout pas du tableau ! 


Reprenons les totaux. Nous avions utilisé la ligne et la colonne zéro, 
mais si nous avions à faire, en plus des calculs de moyennes, des coef- 
ficients comparatifs, des statistiques et autres insanités, nous aurions 
aurions plutôt annoncé dès le départ DIM(15,7). En restant en « vase 
clos », les calculs les plus fastidieux s'écrivent en une ou deux lignes 
BASIC dans une boucle FOR NEXT. 


Mieux encore : imaginons qu'à mi-calcul on n'ait plus besoin des 
résultats intermédiaires de la ligne 14 et de la colonne 6 : écrasons-les 
par des résultats à conserver en cours de calcul, et ainsi de suite. Par 
cette technique répétée, il nous est arrivé d'éviter de gaspiller un nom- 
bre respectable de kilo-octets sur un très gros tableau. 
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ENREGISTREMENT ET LECTURE DES FICHIERS 


Les fonctions STORE et RECALL sont d'une facilité d'emploi. 
désarmante ! On désigne le tableau, et la ROM se charge de tout, et 
très vite. Pensez que sur la plupart des micro-ordinateurs il faut décor- 
tiquer le tableau par des boucles FOR NEXT, pour enregistrer ou lire 
chaque élément. 

Supposons que vous ayez à la fois des nombres et des chaînes ; 
vous pouvez soit enregistrer les deux tableaux à la suite, soit transfor- 
mer vos nombres en chaînes (par STR$), et traiter ainsi un seul tableau 
chaînes. Ce sont les cas particuliers qui feront la décision. 

Vous savez qu'après l'ordre STORE ou RECALL on met le nom du 
tableau DIM, virgule et un nom de baptême quelconque entre ‘* ”’. Or, 
nous avons remarqué un petit BUG de l'ORIC ATMOS concernant le 
nom de baptême : on ne peut pas le paramétrer. 


12 ‘STORE DANGEREUX 

28 DIM EX(35) 

25 FOR lei TO SS:EX(I)=I#2:NEXT 
3 AN=84 

40 A="TRUC"4STRE (AN) 

SA STORE EX,A# 

9@ END 





Si vous essayez ce petit programme et que vous le rechargiez par 
RECALL, deux éventualités : ou bien l'écran se brouille et vous aurez 
de la chance si RESET est efficace, ou bien tout semble très correcte- 
ment se passer à l'enregistrement et la lecture. Mais ne criez pas vic- 
toire pour autant ; faites imprimer le contenu de DIM BX(35) ainsi 
reconstitué : que des zéros..…. 

Nous avons vérifié que le blanc entre « TRUC » et « 84 » n'avait 
aucune responsabilité : mystère ! 

Voilà comment nous nous tirons d'affaire : l'index qui sert à iden- 
tifier le fichier, parmi plusieurs enregistrés à la file, n’est pas dans le 
titre mais dans le tableau lui-même, par exemple en BX(0.). 


10G ‘STORE FARAMETRE 

114 DIM EX (CES) : ANFEA 

120 FOR Tel TO ES: RXCI)E=IMT:NEXT 
LSQ RX CG AN 

14G STÛRE BX,"TRUC" 

154 END 


À la lecture, pour retrouver le ‘‘bon’’ dans une série de fichiers tous 
appelés « TRUC » : 





E UNTIL EX (60) AN 
SG END 


l'est évident que pour un fichier chaînes, l'index numérique sera 
mis en chaîne par STR$, 


L'UTILISATION DES DATA 


Les lignes du DATA sont très faciles à utiliser si l'on a bien compris 
leur principe de fonctionnement. Ce n'est pas compliqué, loin de là, mais 
c'est assez spécial. 


e Lorsque l’on met des DATA dans un programme, ils vont s’empiler 
dans une zone à part de la RAM, appelons la « la boîte à DATA ». 
° On peut y mélanger des nombres et des chaînes. Chaque élément, 
séparé par une virgule, est comme une carte mise dans la boîte. 

e On lit ces cartes par la fonction READ. Elles sont lues dans le même 
ordre dans lequel on les a entrées. 

e Dès qu'une carte a été lue, elle est mise dans une seconde boîte. 
e Avec l'ordre BASIC RESTORE (= recharge), les cartes lues sont remi- 
ses dans la première boîte ; elles pourront donc être relues. 

e Si la boîte n° 1, celle des DATA à lire, a été vidée et que l’on demande 
READ, le programme plante, avec le message 


‘OUT OF DATA ERROR" 


e Si l’on a besoin de 10 DATA à partir de la 25e, il faudra d’abord ‘‘lire 
à blanc’ les 24 premières. 

e Le nombre de DATA par ligne n’a aucune importance. 

e Les lignes de DATA peuvent être avant ou après les commandes 
READ. 


Le gros avantage des DATA est l’économie d'écriture lorsque l’on 
tape un programme. L'exemple suivant vous en convaincra : dans la 
première partie, nous remplissons un tableau DIM avec 24 constantes 
(mois de l'année avec leurs nombres de jours). Sans les DATA il aurait 
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fallu écrire : M$(1,1)= ‘‘janvier"” : M$(1,2)= "31" : etc. Quelle cor- 
vée ! Nous faisons cela en quelques lignes courtes (lignes 310 à 360). 
Ce petit programme n’a aucune utilité pratique, mais il rassemble tou- 
tes les possibilités d'utilisations des DATA : 


“DATÉ EN DIM 
DIM M#CIX, 0 
FOR Iæl TO LD MEÆCT,I)ENEXT 
| FOR Iei TO 1231 MECT, 2): NEXT 
40 DATA JANVIER, FEVRIER, MARS, AVRIL, M 
TL, SUTN 

2S0 DATA JUILLET, AQUT, SEPTEMBRE, OCTOR 
RE, NOVEMERE, DECEMRRE 

2GA DATA 1,28, 241,30, 21, 20,51, 
50561 

4GG RE-UTILISATION DES DATA 

AG NOMBRE DE JOURS DU SEMESTRE 
RER RESTORE 
; Le1l TO 18e READ AEF:NEXT 
é JF Nel T(Q 6: READ J 

SA TETATsNEXTs CLS 

460 FRINTE S,I1G"LE SECOND SEMESTRE À 
Ma Ta TOQURS 

498 END 


















Dans la première partie, les 24 DATA ont été pris comme chaînes, 
or, dans la seconde partie (lignes 420 à 460) les DATA de la ligne 330 
sont pris, cette fois, comme valeurs numériques. Après le RESTORE, 
nous lisons à blanc 18 DATA (ligne 430), puis nous prenons la suite 
comme nombres (ligne 440). 


L'ordre READ équivaudrait à un « GOSUB DATA », et pour vous 
le prouver, ajoutez la ligne 339 END. 
Faites RESET, puis RUN, et après le « READY » demandez PRINT 
M$(10,1) et vous aurez « OCTOBRE ». Donc, il suffit que le programme 
soit en RAM pour que les DATA soient accessibles, comme pour des 
sous-programmes. Petite curiosité : le bloc des DATA peut être rechargé 
par RESTORE, RUN ou CLEAR, mais pas par RESET. Exemple : exécu- 
tez le programme par RUN. Les DATA sont ‘‘vidés'’. Faites RESET et 
tapez READ A$ : PRINT A$. Réponse « OUT OF DATA ERROR ». Tapez 
CLEAR, et reposez la question précédante ; réponse « JANVIER ». 
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CONSEILS DATA PRATIQUES 


Sur une même ligne, vous avez vu que l’on pourrait alterner des 
chaînes et des nombres, donc avec destinations différentes. Pour la 
clarté ne le faites pas ! Faites des lignes ordonnées, voire légendées 
en haut par un REM, sinon vous serez perdu le jour où vous vous vou- 
drez modifier une seule valeur parmi ces DATA. 


Remarquez que dans notre programme, nous avons mis six noms 
de mois par ligne et les. douze nombres ensemble. C'est uniquement 
pour la lisibilité. Essayez de changer de ligne que lorsque cela corres- 
pond à un changement de rubrique ; nous en verrons un exemple 
concret au chapitre XI. 


Vous avez vu que nous avons dû compter 48 DATA à lire à blanc ; 
ici, c'était facile. alors pour éviter de fastidieux comptages, prenez 
les dispositions suivantes : 


— Ne dispersez pas vos DATA un peu partout dans votre programme. 
— En tête de chaque bloc de lignes DATA écrivez une ligne REM pour 
dire à quoi ce bloc est destiné, et le nombre total de DATA qu'il 
comporte. || sera plus facile d'additionner 56 +34 que de compter 
90 DATA une par une... 


DIVERS 


Si vous laissez un blanc entre une virgule et une chaîne, il ne sera 
pas pris en compte. Si vous tenez à ce blanc, mettez le DATA 


au rt 


entre : 


Exemple : 
, MARS, AVRIL, ‘’ MAI”, JUIN, etc. 


Si des lignes DATA comportent chacune huit nombres de 1 ou 2 
chiffres, laissez un blanc devant chaque nombre à un chiffre. Ainsi, tou- 
tes ces lignes auront au listing la même longueur ; pas pour faire joli, 
mais afin de vérifier, sans les compter, qu'il y en a bien huit par ligne. 
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Chapitre VIII 


LES BOUCLES ET LEURS PIEGES 


Nous disposons de trois sortes de boucles : les FOR NEXT, REPEAT, 
UNTIL et par GOTO. Chacune a ses avantages et inconvénients, aussi, 
le choix se fait en fonction du problème à traiter. 


LES VITESSES D'EXECUTIONS 


Elles sont très différentes ; dans le rapport un à dix ! Nous vous 
livrons nos chronométrages (au centième de seconde arrondi au 
dixième) pour les faire compter de 1 à 1000 : 


DUREES DES BOUCLES à 1@@@: 
DR NEXT = 1,5 5 
let TO 1@PG:NEXT 





‘FOR NEXT 1 1:75 





FOR Ie1i T0 1@G@G:MNEXT TI 










T.UNTIL---5 14.4 5 
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*COMET 
Kætk+1s IF 
GOTO 170 
END 





Première constatation : l'ORIC ATMOS est rapide (un peu plus que 
l'ORIC-1), il est même dans le peloton de tête en rapidité parmi les micro- 
ordinateurs 8 bits du marché (son microprocesseur 6502 y est pour 
auelque chose !).. 


Note : Sa rapidité, la qualité de son clavier mécanique et sa qualité 
d'image font que l'ATMOS a de plus en plus d'applications semi- 
professionnelles. 


Deuxième constatation : en ligne 60, l'ajout /nutile du nom de la 
variable après NEXT augmente le temps de 30 %. Même si vous avez 
quatre boucles FOR NEXT imbriquées, il n’a pas besoin qu'on lui indi- 
que la variable, il utilisera toujours le bon NEXT sans risque d'erreur. 

Troisième constatation : les boucles par incrémentation (comptage) 
et comparaison de valeurs sont considérablement plus lentes. En fait, 
ce sont surtout les comparaisons qui retardent, surtout la fonction FF. 
UNTIL fait à peu près la même chose, mais moins lentement. 


Une preuve du retard d'exécution apporté par chaque IF dans une 
boucle : on modifie ainsi la ligne 30. 


DEL À [Fac 46 
TE IQGGGs IF IeG THER 





Donc, la plus simple des conditions IF (IF 1=0...) prend 3,5 milli- 
secondes ; des comparaisons plus complexes peuvent demander dix, 
vingt fois plus. En conclusion, quand le nombre de boucles est impor- 
tant (plus de 100), soyez assez prudent, radin même, sur le nombre 
de conditions |F que vous y logez. Un programme qui se met à ‘’péda- 
ler dans le vide’’ pendant de longues secondes (ou minutes...) est très 
déroutant pour l'opérateur ; lequel peut s’affoler et taper CTRL C croyant 
avoir fait une fausse manœuvre ! 
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Il est des cas où ces ‘‘temps morts”’ sont inévitables (exemple : 
les tris alphabétiques), alors prévenez l'opérateur en faisant apparaître 
à l'écran le message « Un peu de patience. ». Si vous aimez l'humour, 
préparez en DIM une dizaine de messages différents de ce genre, et 
c'est la fonction RND qui fera son choix... 


LES PIEGES DES BOUCLES FOR NEXT 


Le piège classique est celui des valeurs finales en fin de boucle : 
si en ligne 35 on avait demandé PRINT |, vous auriez 1001 : la boucle: 
a bien compté jusqu'à 1000, puis a ajouté son STEP (ici 1 par défaut) 
mais ne l’a pas exécuté. Rappelez-vous : la valeur finale de la variable 
est celle de sa dernière valeur de boucle plus la valeur du STEP. 


D'autres surprises surviennent quand les valeurs départ, arrivée et 
STEP sont obtenues par calculs : si par malheur STEP = 0 vous risquez 
d'attendre la suite longtemps... Si le STEP est négatif alors que la pro- 
gression est positive, il n’y a pas de boucle, pas de message d'erreur, 
et le programme se poursuit. 


Exemple : 
FOR I1=TO 5 STEP - 1:NEXT:PING 


Après le PING, faites PRINT | ; réponse 1. C'est traitre ! 
L'ATMOS accepte des valeurs départ, arrivée et STEP décimales : 


Faisons : 
FOR 1=1.3 TO 4:PRINT I:NEXT 


Nous aurons pour | 1,3 ; 2,3 et 3,3. 

Donc, il ne ‘‘grogne’” pas si la valeur arrivée est impossible, mais ne 
la dépasse pas. Même chose évidemment si la valeur d'arrivée est déci- 
male avec départ entier et STEP = 1. En conséquence, si par votre cal- 
cul vous pensiez obtenir une valeur d'arrivée égale à 12, mais qu'en 
fait son résultat est 11.99999, il s'arrêtera à 11... Pensez à arrondir 
vos calculs à l'entier le plus proche ; vous vous souvenez de 
« INT(1+.5) » ? 


LES SORTIES DE BOUCLES 


Imaginons un groupe de 10 lignes où la première commence par 
FOR et la dernière ne comprend que NEXT ; disons que c'est la 
ligne 790. 


A mi-parcours, vous avez introduit une première condition IF qui, 
si elle est vérifiée, demande de sauter la suite et de repartir sur un nou- 
vel index de comptage : il serait souvent très dangereux d'écrire IF... 
THEN NEXT, alors qu'en toute quiétude, vous pouvez écrire IF... 
THEN 790 (la ligne où se trouve /'unique NEXT pour ce FOR). 


Deuxième cas : vous introduisez une condition IF qui doit arrêter 
cette boucle. 


65 


Exemple schématique : 
700 FOR 1=1 TO 500 


790 NEXT 


Et la boucle se termine sans ennuis. Désirez-vous mémoriser la valeur 
de l'index au moment de l'interruption ? 


750 IF A=Z THEN K=l:1= 500:GOTO 790 


Ilest évident qu'il ne faudrait pas sortir d’une boucle par un GOTO 
vers l'extérieur. Le programme resterait alors dans l'attente d’un NEXT 
pour revenir au FOR de la ligne 700, ce serait de la roulette russe... 


LES PIEGES DES REPEAT UNTIL (UNTIL = jusqu'à ce que) 


Le risque est la boucle sans fin (ou presque) parce que la condition 
UNTIL n'est jamais vérifiée, et ce parce que votre condition est trop 
précise. 


Un exemple : 
… UNTIL N=12 


Or ce N est calculé par une division ou une racine carrée, et alors que 
vous escomptez 12, le calcul donne en fait 11.99999... Donc, UNTIL 
N = 12 n'est jamais vérifié et la boucle continue. Il aurait suffit d'écrire, 
par exemple : 

…UNTIL N+.1>12 où UNTIL INT(IN+0.5)= 12 


Le risque d'obtenir une valeur non entière est dû à une opération 
arithmétique ou mathématique qui provoque une réduction d'un nom- 
bre ; nous avons cité la division et la racine carrée, mais il y a aussi 
les logarithmes. Ce phénomène du « .999... » est d'autant plus traitre 
qu'il ne se produit qu'avec certaines valeurs, vous avez déjà dû le remar- 
quer avec une calculatrice de poche. Attention ! Même si le calcul de 
N n'est pas ‘’dangereux””, il a peut-être utilisé une variable qui elle a 
été obtenue par division. Soyez donc méfiant ; c’est le genre de pro- 
gramme qui peut fonctionner cent fois de suite et planter la cent-unième 
sans que l’on comprenne pourquoi. En règle générale, sitôt après avoir . 
tapé le mot « UNTIL », marquez un temps d'arrêt afin d'imaginer tous 
les cas particuliers, ‘‘vicieux'”, qui pourraient passer au travers de votre 
condition ; disons tous les cas peu probables mais non impossibles. 
Nuance ! 

Imaginons que vous avez trouvé un de ces cas rarissimes. || faut 
le bloquer mais vous ne trouvez pas la parade dans la condition suivant 
le mot UNTIL : alors, ajoutez une instruction IF qui va forcer le UNTIL. 
Imaginons cet exemple suivant. 

Vous avez remarqué que dans ce fameux cas extraordinaire, il n‘y 
aurait rien d’écrit à un certain endroit de l'écran : à l’aide du plan 
mémoire de l'écran (manuel ATMOS page 272), vous déduisez que 
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l'adresse de cette case est 48740. Une case ‘‘vide'”, c'est un espace, 
et le code ASCII d'un espace, c'est 32 : donc, avant la ligne « UNTIL 
N= 12 » il suffira d'insérer la ligne : 


IF PEEK (48740) =32 THEN N=12 


De même qu'un bon joueur d'échecs est celui qui prévoit les bons 
coups de l'adversaire, un bon programme est celui qui prévoit les mau- 
vais coups du hasard. 


LES PIEGES DES BOUCLES IF... GOTO 


Ces boucles ressemblent fort aux REPEAT UNTIL mais en... négatif. 


En effui, toutes deux débutent souvent par une ‘‘’incrémentation"” 
au comptage, du genre « 1|=1+1 », mais alors que UNTIL est une “‘invi- 
tation’ à quitter la boucle, le IF... GOTO est une invitation à la repren- 
dre. Autrement dit le « UNTIL N= 12 » peut être remplacé par : 


IFN< >12 THEN GOTO (début de la boucle) 


Ilesi dès lors évident que les pièges précédents s'appliquent à ces 
types de boucles. 


QUELLES BOUCLES CHOISIR ? 


Le FOR-NEXT implique un nombre de passages définis, ou du moins 
maxima (puisque l'on peut les écourter). Nous avons vu qu'elles sont 
environ dix fois plus rapides, que l'on peut imbriquer avec très peu de 
risques d'erreur. C'est l'élite, à utiliser en priorité tant que faire se peut. 


Les REPEAT-UNTIL losque l'on a aucune idée du nombre de pas- 
sages qui vont être effectués, l'exemple le plus parlant est celui de la 
boucle contenant la fonction KEY$. Un autre avantage, sa c/arté de 
lecture dans un listing, débute par REPEAT, finit par UNTIL ; pas 
d'équivoque. 

Les IF... GOTO sont les boucles les plus lentes, les listings devien- 
nent souvent très difficiles à décrypter : on ne doit les utiliser que dans 
des cas si complexes que les deux autres types de boucles sont inutili- 
sables. En effet, puisque les débuts de ces boucles ne sont pas des 
points de retours systématiques (comme avec FOR ou REPEAT), tous 
les coups sont permis, mais alors gare aux « labyrinthes BASIC », aux 
programmes « bouts de ficelles » ou « spaghetti » que nous avons tant 
décriés au début de cet ouvrage. 

Cette solution d'apparente facilité ne doit être réservée que pour 
des passages d'extrême difficulté ; car c’est du ‘pilotage à vue”. Si 
ça passe tant mieux, si ça ne passe pas, un seul mot de trois lettres 
pourra sauvegarder vos nerfs : NEW... 
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LES PIEGES DES INCREMENTS 


Paresse et habitude allant de pair, nous avons tous la manie de 
réutiliser les mêmes ñoms de variables, surtout pour les comptages. 
Les bons usages préconisant les lettres de | à N (début de INTEGER ; 
rappel), on a tendance à trop utiliser les lettres | et N au détriment des 
autres, et de ce fait, on oublie souvent de les réinitialiser à zéro. Voici 
un exemple classique : 


REPEAT:1=1+1 
C'est la première fois que | apparaît, donc 1=0 ; très bien. 


Mais ultérieurement, on a ajouté en amont un GOSUB vers un sous- 
programme, contenant lui cette ligne d'apparence anodine, FOR 1=1 
TO 50... 


Donc, notre REPEAT commencera avec valeur |=52. Surprise. 


Juste avant l'instruction REPEAT, si on avait logé 1 = 0, il n'y aurait 
pas eu de problème. Même si une initialisation de variable ne sert appa- 
remment à rien, elle n’a rien de déshonorant : si une modification ulté- 
rieure a lieu, vous serez protégé. C'est là le type de la petite erreur bête 
dont on ne se méfie pas assez. Et ce cas est en fait très fréquent |! 


Faites très attention à l'endroit où vous placez votre incrémenta- 
tion : on a trop tendance à la mettre en début de boucle, alors qu'il 
est souvent plus prudent de la mettre vers la fin. Nous vous en avons 
donné un exemple au chapitre VI dans le programme « moyenne 
d'âge » : vous y remarquerez que les incrémentations (ligne 450) ne 
se font qu'après validation de AG$. 

Il est des cas où l’on est vraiment obligé d'incrémenter dès le 
départ : si en aval intervient une invalidation, pensez, dans le même 
IF, à décrémenter de — 1... 


LA TECHNIQUE DES FLAGS 


Un FLAG (= drapeau) est une sorte de mouchard, on sait alors si 
le déroulement du programme est passé par tel endroit, si telle condi- 
tion IF s'est trouvée vérifiée. Pour plus de clarté, c'est un nom de varia- 
ble dont la première lettre est F, tel FB, F1, F2 etc... Le plus souvent, 
on ne leur attribue que deux valeurs, O et 1. 


On ‘‘pose’’ un FLAG généralement après un THEN ou un ELSE, 
ou dans un sous-programme appelé par GOSUB. 


Note : Pour tester un FLAG, vous n'êtes pas obligé sur ORIC d'écrire 
IF FT =1 ou IF FT>0O, vous avez le droit à cette simplicité : 


IF FT THEN... 


Ilest fréquent d'utiliser des FLAGS provisoires lors de la mise au 
point d’un programme, donc en concurrence ou en complément de la 
fonction TRON. 
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On peut aussi incrémenter des FLAGS, c'est-à-dire qu’au lieu du 
« THEN FT =1 ». Un exemple : vous vous souvenez des sécurités d’en- 
trées du chapitre VI où une ligne redemandait le même INPUT en cas 
d'erreur : avant chaque GOTO à la ligne INPUT, ajoutons par exemple, 
F1=F1+1. Pour une autre entrée de données mettons dans la ligne 
de sécurité F2=F2 +1 etc... Et puis plus loin : 






A THER  PARINTODE. 
BTTENT IC 
MINTOALLEZ VOUS F 


EL 





VOTRE FORMAT? ### H### 
HOMBRET 123 456789 


HRHOHHHH 
1234567 


| NOMBRE 6 
NOMBRE ? 12345 ue 


56 SE . 


ü 8. 


à .G89123 


—7 -SE-3 


.45 





Chapitre IX 


L'ART DU TRAITEMENT DE CHAINE 


Les fonctions de traitements de chaînes sont les suivantes : 
LEN, LEFTS, RIGHTS, MID$, STR$, et VAL 


C'est peu mais suffisant pour faire de grandes choses ; nous avons 
déjà donné de nombreux exemples, notamment au chapitre VI, 
concernant le formatage des chaînes entrées par INPUT. 


Nous allons voir quelques détails sur ces fonctions. 
e LEN (A$) renvoie le nombre de caractères de A$ même si A$ 
commence par un blanc. | 
e LEFT$, RIGHTS, MID$ acceptent les index nuls et les dépassements. 
Exemples avec A$ ='"ABC" : 
B$ =LEFTS$ (A$, 5) ; mais LEN (B$)=3 
B$ =LEFT$ (A$, O) ; LEN (B$)=0 
B$ = MID$ (A$, 4, 4) ; LEN (B$)=0 
B$ =RIGHTS (A$, 6) ; LEN (B$)=3 
B$ =RIGHTS$ (A$, 1.5) ; LEN (B$)=1 (B$ =C) 
Par contre, il Y aura un message d'erreur avec un index négatif ; 
c'est la moindre des choses. 


Ces fonctions sur l'ORIC sont donc d'une tolérance exceptionnelle. 
La seule ombre au tableau est que MID$ ne peut servir qu'à lire et non 
à écrire. 
e STR$ (N) considère le nombre N comme il serait représenté à l'écran, 
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c'est-à-dire avec un blanc devant, mais attention aux nombres néga- 
tifs ! Le signe ‘‘-”’ remplace le blanc. 
Exemple : 
A$ =STR$ (5), LEN (A$)=2 
A$=STRS (—5), LEN (A$)=2 (et non pas 3) 
Attention également aux nombres inférieurs à O.01. 
N=0.009 ; A$=STRS (N) ; A$=""9E-03" ; LEN (A$)=6 avec 
N= —.009 ; A$=""9E-03" et LEN (A$)=6 
e VAL (A$) considère les premiers caractères rencontrés à l'exception 
des blancs ; ainsi : 
A$ =""34ABCD" ; VAL (A$)= 34 
A$ ='"ABCD34" ; VAL (A$)=0 
A$ =" 34" ; VAL (A$)= 34 
A$=""12,34" ; VAL (A$)=12 
A$="48+4" ; VAL (A$)=48 
A$=""-48.56" ; VAL A$= -48.56 


LA CONCATENATION 


C'est fusionner plusieurs chaînes bout-à-bout afin d'en faire une 
plus longue. 

A ce sujet, il faut bien faire la différence d’écritures avec une con- 
caténation par l'ordre PRINT. 


Exemple : 
A$ = ""CONC’':B$ = ‘"ATENA"":C$ = "TION" 
PRINT A$;B$;C$ (des points-virgules) 

donnera à l'écran CONCATENATION, tandis que l'on peut aussi écrire 
T$=A$ +B$ +C$:PRINT T$ (des signes +) 


Notez bien la nuance. Si vous mettez des ; à la place des + et 
inversement, il y aura « Syntax Error ». 


LA SUBSTITUTION 


C'est remplacer une partie d'une chaîne par une chaîne plus courte. 
Supposons que dans la chaîne TX$ = ‘’ABCDEF"" nous voulions impo- 
ser le mot MO$ =‘"XY"" à partir du troisième caractère de TX$, afin 
d'obtenir TX$ =''ABXYEF"’. 

Avec l'ORIC, ce n'est pas facile. 


Comme cette pratique peut être courante, faisons un sous- 
programme utilitaire avec un numéro de ligne élevé (58000). A noter 
que ce module (très court) va remplacer une fonction BASIC que l'ORIC 
ne possède pas, à savoir le MID$ interactif. Ce petit utilitaire va être 
le premier d'une longue série. 
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SLIESTITUTION DE CHAINE: DEMONST 
CLS 
24 INPEUTITXE"STXE 

BG INPUT MO": MCE 

A 1 POPCSITION E DANS TXÆ'SE 
it 
&@ F LIL. 
74 FRINT: GOTC a 
GA END 








AE 1 LEA LA 
IE À 


IESTITUTION DE CHAINE 
HÉINE RECEPTIVE 

AINE IMPOSER 

SITION DE MCE DANS TX 

















SE ét 4} (4 
AOGSE OT L ni FRE, KO MCE RL GATE CE 
EN CPK EH) ee EN MCRE à 5 

MOGéR RETURN 





Tout est dans la ligne 58050. Après l'avoir essayée, effacez les 
lignes 10 à 90 et enregistrez le programme 58000 — 58060 sur une 
cassette, sous le nom « SUBSTIT ». Puis faites NEW. 


LA FONCTION INSTR 


Ne la cherchez pas dans le manuel, l'ORIC ne la possède pas, du 
moins pas encore. 


C'est en quelque sorte l'inverse de la précédente car elle renvoie 
la position K du mot MO$ dans le texte TX$. 


Il s’agit d'un très court sous-programme qui va être appelé en main- 
tes occasions, notamment par d'autres sous-programmes utilitaires que 
nous allons décrire plus loin. 


BAG INETEÉ 
BAG ‘Flace E du mot MCE dans le tex 
Le TE 

DAREG Fes FOR Lei TU LENCTEHI:IF MID 
ÊTXE, DL, LEN CMCIE 5 THEN ET 

SABAG NEXT:RE 








TLIF N 
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Mo$' peut être un blanc ou commencer par un blanc, mais à la con- 
dition qu'il ne soit pas entré par INPUT MOS$ ; en effet, rappelons que 
si une chaîne entrée par INPUT débute par un blanc, celui-ci n'est pas 
pris en compte (c'est le cas de presque tous les micro-ordinateurs), mais 
vous pouvez écrire MO$ =‘ ‘’ ou MO$ =" A’. 


REPONSE A UN MENU 


Ce n'est pas une nouvelle fonction mais un petit utilitaire très pra- 
tique et à usage fréquent, il utilise le INSTR précédent. 

Nous avions illustré au chapitre VI une page d'écran représentant 
un menu de divers jeux (lignes 1500-). Nous avions dû légender cha- 
que jeu par un chiffre, et ajouter quatre lignes de BASIC pour propo- 
ser, vérifier et enterriner le choix. Faisons mieux : 

On pourra légender chaque titre par un caractère quelconque, let- 
tre, chiffre, signe de ponctuation, etc..., et ce petit sous-programme 
se chargera de tout. C’est très utile lorsqu'un programme propose plu- 
sieurs menus d'options ; c'est la majorité des cas. 


186 REFONSE MENU FR MODULE 
118 CLS: FRINTElS, 55 "M E ON Ur 
12@ LL RINT@1Z,1@: “FF OFRMUL SR 
150 FRINTGIZ, 2: "M MORFION" 
1 464 INTEL, 14 e-ETOTLES" 
198 FRINTEIZ, lLés °GS-SLALON" 
164 FRINTS1E2,185 "Q-0Q ni 
ARR TXHSNFMEGOQN ES GOSUR SSSR 
al@ ON KE GOSUR LG, 1 OR , SAGE, SGA 
4, #90 
96 ULSs END 















Ra SE fé UN MENU 
1 s TXE et MOF,renvoie EF 
FE LT= LEN CTXE) 2 TTe1S-LTs IF TT<2 TH 





TO LT- er Notes 1)+", 
55040 PRINTMIDE (TX LTy1)4") 





ef THEN FAÉTINTCH 





Remarquez la simplicité d'écrire de la ligne 200 : TX$ rassemble 
toutes les légendes, sans espaces ni ponctuation. C'est le 
module 55000 qui se charge d'écrire en bas de l'écran ‘’Réponse 
(F, M, *,S, Q)'' avec centrage automatique, le GET, la validation de 
la réponse, en renvoyant le numéro d'ordre K de l'option choisie. Pour 
un autre menu proposant OUI, NON et QUITTER, on écrirait simple- 
ment TX$ = '""ONQ'':GOSUB 55000:Le grand confort. 


LA FONCTION PRINT USING 


Cette grande absente du BASIC ORIC est maintenant disponible. 
Mais expliquons d'abord le rôle de cette fonction que beaucoup d'en- 
tre vous peuvent ignorer : 


C'est le formatage imposé pour afficher des nombres. Sans PRINT 
USING les nombres s'inscrivent à l'écran (ou sur imprimante) en par- 
tant de la gauche, et de ce fait dans une colonne de nombres, les chif- 
fres des unités et les points décimaux ne sont pas du tout les uns sous 
les autres, ce qui n’est guère présentable. Supposons que vous impo- 
siez le format “###.# #°". 


Tous les nombres vont être tronqués avec deux décimales, le point 
décimal sera toujours au même endroit. En somme, chaque nombre est 
présenté sous forme de chaîne de longueur constante, avec ici le point 
décimal en quatrième position. 


Notre PRINT USING est un sous-programme (GOSUB 52000) qui 
demande deux renseignements : le format d'écriture PU$ (de PRINT 
USING) et le nombre NB à traiter. Il retourne la chaîne NB$ formatée 
selon votre PUS. 


Lorsque vous définissez votre PU$, vous pouvez utiliser n'importe 
quel caractère de remplissage, seul le ‘‘.”" est réservé au point déci- 
mal, bien que l’on ait le droit de fixer un format pour entiers, genre 
PU$ = ‘*AAA'" (nous avons utilisé le caractère ‘’#’’ (dièse) car c'est 


le caractère obligatoire en BASIC MICROSOFT). 


Ce sous-programme peut sembler assez long et complexe (il est 
néanmoins d'une exécution très rapide), car il tient compte de tous les 
cas particuliers concernant PUS et NB. L'auteur vous lance même le 
défit de mettre ce module en défaut... 


JNSTRATION USING 

UT'VOTRE FORMAT"; PUS 
FRINT TAE 
LT "NOM 
SUR 5200 















75 


GentGt PRINT USING HHHE, HH 

el PUE=FORMÉET+NB=Nonmbres KRetourne 
NEE formate 

DORE TXÆESPUE: MEET", Me GOSUR S1@0@@:EF:= 
FH 

Se LTEeLEN CPL) 8 LESE- 12 LOELT-E 
SeGSG IF EG THEN LE=LTsLD=G IF ABS N 
H)£1 THEN NRz@ 

ePé@ NEEÆESTERSE CNE) 2 LeLEN (NRÆ) 12 IF NH 
ER THEN Leæl+i 

De té NE=RIGHTE CNE, Ex) 

Jen IF ABS CINE EE. A1 END NKS:Q THEN G 
QOSUER SESAG: GOTO 21x04 
Den TXYESNRE:s GOSUE 51440 









em T G THEN EÆ&RIGHTE (C" + 
NECE , LE) 8 DF&LEFTS C" FLD): GOTQ S21 
1 

DelQG EFSLEFTE CNE, 1) 2 DEÆRTGHTE CNE 
ee 

DellQ IF EFeG THEN NR#=RIGATE C" 

MHEE, LT): GOTO S2150 
ele NEAFERTIGNATE C9 HER, LED Mb 





LEFTÆ(CDE+" HD) 
: RETURN 

"FORMATAGE FETITS NOMBRES 
NZ=VAL (FI GATE CNRS, 7) j 1 
CHESSTRE CNET GBA) 
CHE IGHTÆCCHE, LEN (CH#) 1) 
DESLEFTS C'AGAQGAR" NE) +CHE 
DFELEFTE (DE, LD) 

EÆ=LEFTE(C" LSLE) 

IF NE<G THEN E#=RIGHT# (" =» 








NEHSE HAN AE 
RE T LIEN 





Nous vous conseillons de taper ce programme à la suite des autres 
de ce chapitre. Après avoir effacé les programmes de démonstrations, 
vous enregistrerez le reste sur une cassette sous le titre « BASIC 
CHAINE ». 
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Analysons ce module PRINT USING : 
— || commence par analyser le format PUS ; sa longueur totale LT, la 
position K du point décimal (KF=K), la longueur entière LE et la lon- 
gueur décimale LD. 
— Lignes 52060-52065 : le nombre NB est transformé en NB$, et en 
éliminant le blanc de gauche, sauf si NB est négatif. 
— Ligne 52070 : ORIC transforme les nombres inférieurs à .01 (en 
valeur absolue) en notation exponentielle ; ainsi .00723 devient 
7.23E —- 03. D'où un détour au sous-module 52500 — que nous ver- 
rons plus loin. 
— Toujours par notre fonction INSTR, on recherche la position du point 
décimal dans NB$. 
— On définit alors la chaîne partie entière E$ de largeur LE, et la chaîne 
décimale D$ de longueur LD. Il ne reste plus qu'à concaténer 
E$+"".""+D$. 


Le sous-module petits nombres (52500 —) : on commence par défi- 
nir le nombre de zéros NZ qu'il y aura à droite du point décimal. Le nom- 
bre NB est multiplié arbitrairement par 100.000 afin de supprimer la 
notation « scientifique » pour lire les chiffres que l’on va placer après 
les NZ zéros. 


Après concaténations, le ‘’7.23E-03" est transformé en 
‘*.00723"" formaté selon le PU$, un NB$ prêt à l'emploi. 


Ce sous-programme conduit à des résultats spectaculaires, en 
regard de la simplicité d'écriture, en ce qui concerne les programmes 
d'éditions (c'est-à-dire sur imprimante) ; en effet, chaque ligne de pro- 
gramme est de la forme (un exemple) : 


LPRINT NB$ (1);SPC (5);:NEXT 


ce qui assure une tabulation sûre et impeccable sur le plan de la pré- 
sentation et de la lisibilité de ce tableau de nombres. 


Note : Certains BASIC étendent la fonction PRINT USING au forma- 
tage des chaînes ; le caractère ‘‘ #‘’ est alors remplacé par ‘’&'" (=ET 
commercial ou AMPERSAND). Dans la pratique, il faut avouer que l'on 
ne s’en sert pratiquement jamais. Nous ne l'avons donc pas développé 
bien que cela soit possible, et plus simplement que pour les nombres. 
Si cela vous dit. 


Ne vous contentez pas de recopier scrupuleusement les program- 
mes utilitaires de ce chapitre, analysez-les, et ce afin de vous familiari- 
ser avec ces triturations de LEN, LEFTS$, et d’autres. En effet, vous serez 
un jour confronté à un problème très personnel, très spécial, qui sera 
résolu très facilement grâce à ces fonctions de traitement de chaînes. 
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LE TRI ALPHABETIQUE 


Les symboles ‘<<’ et ‘’ >" sont également applicables aux carac- 
tères. En ce cas, un micro-ordinateur considère les codes ASCII de ces 
caractères. Examinez la table de correspondance de la page 263 du 
manuel ATMOS : on y remarque l’ordre suivant : 


Espace (32), les chiffres O à 9 (48 à 57), les lettres majuscules 
À à Z (65 à 90) et les lettres minuscules a à z (97 à 122). Pour une 
même lettre, on passe de majuscule à minuscule en ajoutant 32. (ORIC 
respecte le CODE ASCII international). 


On peut donc dire que A <D puisque 65 < 68. De ce fait, on peut 
faire du tri alphabétique sur une liste de noms ; si les premières lettres 
sont identiques, le BASIC considère alors les deuxièmes, etc. 


Exemples : | 
RENAUD <RENE;ANDRE < ANDREE mais 
ZOE< accroc; ‘1000’ <ZERO;'' 9''<''5" 


Pour effectuer un tri alphabétique, on loge en vrac tous les noms 
dans un tableau DIM ; au cours du classement, ces noms vont chan- 
ger de place, c'est-à-dire d'index. 

La méthode classique est celle dite du ‘‘tri à bulles”, elle est très 
lente : elle consiste à comparer les noms deux-à-deux, les permutant 
si nécessaire, en repassant le tableau de haut en bas de nombreuses 
fois jusqu'à ce que tout soit dans l’ordre. La ‘‘bulle'’ est une variable 
relais où l’on place un des deux noms afin de faire la permutation. 


L'auteur a imaginé une autre méthode de tri qui est trois fois plus 


rapide que la classique, sans présenter un quelconque inconvénient par 
rapport à cette dernière. Nous l'avons baptisée ‘‘’tri en escalier’ : 









Z,Y,X WU VU, T,S,R,0 

DATA 9,8,7:6, 5343323130 

DATA F,O,N,M,L,K,D,C,B,A 
à SGGGQ: TRI 





FRINTS FOR 
: 2: NEXT: PRINT 
490 FRINTE4,10:"CE CLASSEMENT À FRIS 


He secondes "x ENT 


Let TO NRIFRINT F#CLDDS" 


18 








SOUUQ ‘TRI EN ESCALIERS M. ARCHAMEAULT 
) FOR Jei TO NB: EH (0) 
US@ FOR Ie) TO NE 
SOPIA IF PÉCI) de E# THEN EfeP# (Lie 
I 


ia tp (2 du NEXT 
Fc (ND eeFE CU) 8 FE Ces NEXT 
RETUFN 





Le principe du tri est le suivant : on considère d’abord un ‘‘étalon”’ 
E$, arbitrairement, celui en haut du tableau, P$ (1). Puis on le compare 
à tous les autres ; si on rencontre plus petit, c'est ce dernier qui devient 
E$, on le repère par son index N, et ainsi de suite jusqu’en bas du 
tableau. Le E$ ‘’vainqueur’’ est placé à l'index 1 et celui qui était en 
1 passe à l'index N (une permutation). 

On reprend une deuxième passe mais en partant une ‘’marche”’ 
plus bas, E$ =P$ (2). Le plus petit E$ est logé en index 2. On repart 
depuis l'index 3, et ainsi de suite. 

Le tableau à classer était d’une difficulté voulue. Nous l'avons uti- 
lisé également pour un test comparatif avec le tri à bulle ; il a fallu 16,3 s 
contre 5,5 s pour le nôtre, soit un rapport d'environ 3. 
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Chapitre X 


LES TESTS ANTI-BUGS 


Il y a deux sortes de bugs (bugs = erreurs dans un programme), les 
francs qui font planter le programme et avec ou sans message d'er- 
reur ; et les sournois qui font croire que tout se passe bien mais 
conduisent de temps à autre à des résultats erronés (mais non fla- 
grants.…..) ; de ce fait, on ne les remarque que bien plus tard... Heureu- 
sement, ces derniers sont beaucoup plus rares. 

Avant d'indiquer les méthodes de dépistages, il est préférable de 
passer en revue quelques types de bugs classiques et pourtant d'ap- 
parence anodine. Donc, nous ne parlerons pas de l'étourderie banale 
et criante genre caractère oublié, caractère à la place d’un autre, etc... 


QUELQUES ERREURS DE SYNTAXE PLUS SUBTILES 


On est assez décontenancé lorsque l'écran signale une erreur de 
syntaxe dans une ligne apparemment correctement écrite. Notre exem- 
ple préféré, et authentique, était de la forme : 

510 LPRINT AB$ 

C'est pourtant correct ! Heureusement, le hasard a voulu que l'on 
s'apercoive que ce programmeur débutant avait tapé sa ligne de la façon 
suivante : 


510 L? AB$ 
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En effet, ‘’?"’ se traduit par « PRINT », mais ‘‘L?’’ c'est une lettre 
quelconque avant l'ordre PRINT, qui n’a aucun rapport avec LPRINT, 
d'où bien sûr « Syntax Error ». En repassant la ligne en CTRL A tout 
est devenu normal. 


Un autre type d'erreur est de donner à une variable un nom en deux 
lettres qui constituent en fait un mot réservé au BASIC ORIC, par exem- 
ple, un flag qui aurait été baptisé FN... Les mots réservés en deux let- 
tres sont peu nombreux, vous seriez donc impardonnable de les igno- 
rer (même si vous ne vous en servez pas) ; il y a : 


FN,IF,LN,ON,OR,PI,TO 


A cela s'ajoute une ‘‘variante’”, celle qui consiste à écrire un nom 
de variable en toutes lettres, tout en sachant que les deux premières 
comptent, alors là, vous prenez des risques énormes ! Le risque que 
votre nom contienne un mot réservé de deux, trois, quatre lettres ou 
plus... Essayez en mode direct d'entrer ces quelques bêtises : 

NOTE =45 (NOT) 
RENDUS$ = ‘’A'" (END) 
CHIFFRES = ‘’9"" (IF et FRE) 


Par contre, LETTRES = ''A"" est accepté, mais attention ! C'est 
TRES qui est égal à ‘‘’A’".…. et faire PRINT LETTRES plantera (fonc- 
tion LET...). 

Dans notre premier exemple, NOTE pourra être remplacé sans dom- 
mage par NO ou NTE. 

Il Y a aussi des fautes de frappe difficiles à remarquer sur l'écran 
et sur un listing d'imprimante parce que certains caractères se ressem- 
blent. A titre d'exemple, tapez : 


Ke et ER Peer et 2eqet 
À noter aussi que certaines imprimantes ne barrent pas le zéro, et pour 
le distinguer de la lettre ‘‘O’”, il faut un œil de lynx. 


LA SYNTAXE DES CONDITIONS 


Tout d’abord, cette règle super importante dont l'oubli est hélas 

classique : 
e lorsqu'une condition IF n'est pas vérifiée, le déroulement du pro- 
gramme passe à la ligne suivante (la suite après IF est ignorée). Donc, 
si à la suite d'une ligne comportant IF, vous ajoutez un autre pas de 
programme, séparé par ‘‘:’”", celui-ci ne sera exécuté que si la condi- 
tion IF qui le précède a été vérifiée. 

En ce qui concerne AND et OR, il y a le danger de se laisser abuser 
par le langage courant. Un exemple : vous vous dites ‘‘je veux qu'il 
y ait le son PING pour deux valeurs de N, à savoir 6 et 7'' et vous seriez 
machinalement tenté d'écrire : 


IF N=6 AND N=7 THEN PING 
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Condition irréalisable ! Il fallait mettre OR et non AND. Notre exemple 
est volontairement très simpliste, mais sachez que pour des cas com- 
plexes ce genre de confusion nous guette. AND et OR exigent un choix 
très réfléchi, car en cas de confusion le programme fera autre chose 
que prévu et sans donner de message d'erreur ! 


N'utilisez pas la fonction ELSE sous prétexe de vous éviter de faire 
une nouvelle ligne. Car ELSE a un rôle exclusif qui signifie en fait ‘‘véri- 
fier ce qui suit dans le cas où ce qui le précède ne serait pas vérifié”. 
On peut mettre plusieurs ESLE en série. 






CLUSTE DE ELSE 





7 rh F: ul A it hi r _ 
A LE 


JUN 

H ÿ F* 
THEN FING 
IF F 
AND 





Ce programme débouche sur cinq ‘’conséquences’’ : 
PING, SHOOT, GAGNE, ! et PERDU 


Or, par l'effet exclusif des ELSE, une seule conséquence n’est possi- 
ble, et ce, quelles que soient les valeurs de N et P. Le programme condi- 
tionnel est court (deux lignes), mais était-ce le but recherché ? Remar- 
que importante : les ELSE ont aussi introduit des priorités , ainsi pour 
N=5et P=5 il y aura PING, le ZAP de l'égalité ne peut être vérifié : 
pour N=9 et P=3 on aura SHOOT et non pas GAGNE. 

Voilà pourquoi un programme peut parfois avoir des réactions 
‘’bizarres'”, parce que l'on a utilisé ELSE simplement pour enchaîner 
sur un autre |F. ELSE est à manier avec précautions. 

Une petite parenthèse : nous ne pouvions tout écrire dans la 
ligne 50 (les 78 caractères maxi), d'où ce ‘‘flag silence’’ FS afin de pour- 
suivre en ligne 60 ; et sans oublier de le remettre à zéro en ligne 70. 


LA LOCALISATION DE ZONE D'ERREUR 


Si ce programme plante avec un message d'erreur, l'ORIC indique 
en plus le numéro de la ligne : l'erreur est donc soit sur cette ligne, soit 
en amont. C'est dès lors assez facile de mieux cerner l'endroit coupa- 
ble. En revanche, lorsque le fonctionnement est défectueux, mais sans 
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message d'erreur, il faut d'abord identifier la zone coupable : la méthode 
la plus élégante consiste à tronçonner le programme cà et là, par des 
lignes comportant seulement la fonction STOP. 


Prendre des lignes se terminant en 9 (pour le repérage) et les noter 
sur une feuille ou mieux sur le listing d'imprimante. 


Exemple : 
499 STOP 


Puis lancer le programme : il va s'interrompre à chaque STOP ren- 
contré avec le message « BREAK IN 499 ». 

Mais jusque là, rien d'anormal ne s’est produit, c'est donc plus loin. 
En mode direct, tapez CONT et Return (=condition), Apparaît alors 
« BREAK IN 629 » (un autre STOP que vous aviez mis en 629). Vous 
constatez une anomalie ; il y a donc un bug entre les lignes 500 et 620. 
Mais laquelle ? /nterrogez la RAM sur les valeurs de ses variables en 
cours. Tapez par exemple en mode direct : 


PRINT N,C$,I et Return 
ou bien FOR J=1 TO 12:PRINT PR$ (J):NEXT 


afin de visualiser le contenu d'un DIM : ou encore 
LIST 500-620 


Vous pouvez poursuivre par CONT, mais attention, certaines pré- 
cautions s'imposent : 


POUR QUESTIONNER LA RAM 


Vous avez droit en mode direct à la majorité des mots BASIC, mais 
le danger est d'effacer toutes ces variables en RAM. Trois choses sont 
interdites : RUN, RESET, et modifier quoi que ce soit au programme. 
Ajouter, effectuer ou modifier une ligne au programme a pour effet de 
ré-initialiser toutes les variables. Si vous tapiez CONT, vous auriez un 
message d'erreur (CAN'T CONTINUE ERROR). 

En revanche, après un arrêt par STOP (ou par CTRL C), vous avez 
le droit de modifier la valeur d'une variable, par exemple N = 15 et return, 
et de repartir ensuite soit par CONT ou encore par GOTO 500. 

En somme, STOP est un CTRL C programmé avec mise en mémoire 
du numéro de ligne suivant ; CONT est l'équivalent de GOTO ce numéro 
de ligne: 

Le problème est épineux, vous modifiez à plusieurs reprises le pro- 
gramme, que vous relancez par RUN, et vous trouvez fastidieux de reta- 
pez les mêmes questions en mode direct ; alors programmez-les : 


629 PRINT N,C$,I,CD:STOP 
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LE DEPISTAGE DU BUG 


Vous avez localisé le groupe de lignes farceuses, mais il s'agit en 
fait d'un enchevêtrement de GOTO (bien fait pour vous !) dont la plu- 
part sont consécutifs à des IF. Plutôt que d'attraper une migraine, utili- 
sez la fonction TRON (= contraction de TRACE ON), elle est faite pour 
cela. Elle aussi, mettez-là sur une ligne provisoire dont le numéro se 
termine par 9. A la fin de la zone dangereuse, n'oubliez pas de pro- 
grammer une autre ligne ‘‘en 9°’ pour TROFF (= TRACE OFF) ; qui 
annule TRON. 


Grâce à TRON, chaque numéro de ligne sur lequel ‘’passe”" le pro- 
gramme apparaît entre crochets. Si une ligne comprend trois instruc- 
tions différentes séparées par des ‘’:"”, ce numéro de ligne apparaît trois 
fois. Cette écriture est assez envahissante à l'écran ; donc program- 


mez le TROFF le plus tôt possible. 


Un petit piège : si dans la zone TRON figure un CLS, effacez-le 
provisoirement ou transformez sa ligne en REM par un apostrophe ('). 
Sinon ce CLS effacerait ce qu'aurait déjà écrit TRON, vous faisant croire 
qu'il n'est pas passé par ces lignes... 

Les bugs du ‘‘troisième degré’” : même les indications fournies par 
TRON ne vous donnent pas la clef du mystère. Prenons l'exemple du 
petit programme précédent sur l'effet exclusif de ELSE : 


Ajoutez la ligne 


05 TRON et modifiez la n° 20 
20° CLS  , et RUN 


En exécutant le programme, vous remarquerez que 70 appraît 3 
fois (3 instructions) mais la fameuse ligne 50 n'apparaît qu'une seule 
fois ; vous n'êtes donc pas renseigné pour autant quant à ce qu'il s'y 
passe. 


Alors les grands moyens : LES FLAGS. C'est l’arme absolue, mais 
à n'utiliser qu'en dernier recours car elle ‘‘défigure”’ les lignes de pro- 
grammes, qu'il faudra ensuite remettre dans leur forme initiale. 

Le plus souvent cela consiste à insérer un flag après chaque THEN, 
ou après un ELSE s'il n’est pas suivi d'un THEN. 
Exemple : 

IF... THEN PING : F1=1:ELSE...E2 = 1... 

Il suffira ensuite de questionner ces flags en RAM. 

Nous n'avons encore jamais rencontré un ‘‘bug rebelle” résistant 
à ces mouchards. 


ERREURS DU ‘’PASSE"" 


Il s'agit des lignes ‘mortes’, désaffectées, obsolètes, recopiées: 
ailleurs, et que l’on a oublié d'effacer lorsque l'on triturait le programme 
pour sa mise au point. Dans un petit programme de quinze lignes, cette 
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étourderie est quasi impossible, mais quand il y a plusieurs centaines 
de lignes, c'est banal. 


Souvent, ces lignes mortes sont sans conséquences pour le bon 
déroulement du programme, parce qu'elles ne sont jamais lues ou 
encore parce qu'elles refont ce qui a déjà été fait. Il arrive que l’on s'en 
aperçoive par hasard, alors que le programme fonctionnait quotidien- 
nement depuis des mois | 

On les débusque généralement lorsqu'une fois le programme mis 
au point, on décide de remettre à jour l’organigramme. A ce titre, on 
comprend bien le pourquoi des numéros de lignes ‘’en 9’... 


LE DEPISTAGE DES BUGS DU FUTUR 


Un programme peut s’abîmer accidentellement, un défaut de lec- 
ture de la cassette, on a (sans le savoir) tapé un nombre quelconque 
et Return, et on a ainsi effacé une ligne. 

Voici la parade : 

Votre programme est bien au point et fonctionne à merveille. Fai- 

tes RESET puis tapez : 


? 37629-FRE (0) , et Return (ATMOS) 
A l'écran apparaît le nombre d'’octets qu’occupe votre programme : 


NOTEZ-LE au crayon sur la cassette, ainsi que sur le dernier listing d'im- 
primante (avec la date). 


Pour l'ORIC 1, il faudra modifier ce nombre d'octets disponibles 
à vide, sinon faire 
? FRE (0) , et Return 
qui indique ce qu'il reste de disponible. 
En cas de doute sur un programme que l'on vient de recharger, 


il suffit de reposer cette même question afin de s'assurer que le nom- 
bre affiché est identique à celui noté à l'origine. 


Note : La première série de l'ATMOS affiche souvent à tort « ERRORS 


FOUND » (erreurs trouvées) en fin de chargement par CLOAD. Il est 
alors rassurant de demander son nombre d'octets. 
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Chapitre XI 


CREONS DE NOUVEAUX CARACTERES 


C'est une chose tellement facile et rapide que l’on aurait tendance 
à en abuser. Mais à une condition : ne pas se référer au manuel d'ori- 
gine qui complique les choses bien inutilement (plus une erreur dans 
l'exemple.….). 


Nous allons d’une part créer les caractères AZERTY accentués, des 
caractères semi-graphiques afin de pouvoir dessiner en mode TEXT ou 
des animations rapides en HIRES, mais aussi fabriquer des caractères 
à la demande telles certaines lettres grecques. 


Bien sûr, nous allons vous livrer ces sous-programmes tout-prêts, 
mais nous tenons surtout à vous apprendre à créer les vôtres, et pour 
cela, commencez par oublier ce que vous avez lu (ou compris) dans 
le manuel. 


LE PRINCIPE 


Chaque case de l'écran est une grille de huit ‘‘points'” de haut sur 
six ‘‘’points’’ de large. Ces petits points ou mini-cases s'appellent des 
‘’pixels’’. La colonne de droite n’est jamais utilisée sinon les caractè- 
res se toucheraient sur une même ligne. De même, la rangée du bas 
n'est pas utilisée, et ce, afin de séparer les lignes ; deux exceptions, 
la lettre ‘‘y'" (vous l'avez remarqué avec le y de ‘’ready‘'}) et le trait 
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vertical obtenu par SHIFT + touche en haut à droite (voir figure XI 1). 


Pour mémoriser la forme d’un caractère, il faut huit octets, un par 
rangée. C'est l’image binaire de ce nombre sur chacun de ces octets 
qui va éclairer les six pixels de cette rangée. 


La seule difficulté apparente sera de déterminer chacun de ces huit 
nombres, à partir des images binaires horizontales que l’on a illustrées 
en dessinant notre futur caractère sur la grille de la figure XI 1. 


Primordial : on numérote les colonnes de la grille de droite à gau- 
che et en multipliant par deux. On écrit donc de droite à gauche 1, 2, 
4, 8, 16, 32. C'est facile, et nul besoin d'un modèle pour reconstituer 
cette grille. 


Ensuite, on dessine le caractère souhaité en ombrant au crayon 
les petites cases nécessaires, mais en évitant les deux zones tabou : 
colonne de droite et rangée du bas. C’est donc un dessin de 5 par 
7 pixels (PIXEL = contraction de PICTURIAL ELEMENT). Imaginons que 
l'on veuille faire la lettre grecque oméga (symbole de l'Ohm). 


A présent, faisons les comptes par rangée en commencant natu- 
rellement par le haut : 
— Rangée n° 1 : sont noircies les cases 16, 8 et 4: 16+8+4=28, 
et d’une. 
— Rangée n° 2 : on totalise les cases 32 +2= 34. 
— Idem pour les rangées n° 3, 4 et 5. 
— Rangée n° 6 : ce sont les cases 16+4=20. 
— Rangée n° 7 : on a 32+16+4+2=654. 
— Rangée n° 8 : elle est vide, donc =0O. 


Les huit octets pour faire la lettre oméga sont donc : 
28, 34, 34, 34, 34, 20, 54, O 
Maintenant, il faut stocker en mémoire. 


LA MISE EN MEMOIRE DES CARACTERES 


Le système des ORIC présente une originalité (très pratique), rare 
chez ses concurrents. À la mise sous tension, sa mémoire résidente 
ROM est ‘‘recopiée'” en mémoire vive RAM ; de ce fait, elle est modi- 
fiable par des POKE ou DOKE. Mieux, le fabricant indique dans le manuel 
où trouver chacune des données. 


Où loger notre représentation de l'oméga ? A la place d'un carac- 
tère dont on ne se sert presque jamais, mais qu'on puisse obtenir par 
le clavier. Que diriez-vous du ‘’&'" ? (= Ampersand ou ET commer- 
cial). Où le situer dans la RAM ? Facile : à la page 263 du manuel 
ATMOS, nous lisons que son code ASCII est 38. D'autre part, nous 
savons que les caractères de l’ORIC sont définis à partir de l’adresse 
46080. Comme il y a 8 octets par caractère et qu'ils sont dans l’ordre 
des codes ASCII, notre & débute à l'adresse : 
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46080 + (38 x 8)=46384 (ATMOS) 
On va lui « POKER » nos huit octets de l'oméga : 






JF Te 7:READ A 
FPOKE 4628441, A: NEXT 

40 DATA 28,74,%4,54,54,70,54, 
SG END 





Faites RUN et tapez ‘’&'”, notre lettre apparaît. Et cette mise en 
mémoire est solide ! Seule une action sur le bouton RESET pourrait 
remettre en place le caractère d'origine. Vous pouvez faire RUN 50, 
CLOAD ‘‘ ‘’, CLEAR, même WEW, notre oméga est toujours à la place 
du &. 


Une petite parenthèse : il y a un caractère graphique qui ne pos- 
sède pas de touche au clavier, faites PRINT CHRS (96). 


C'est le signe du ‘copyright. 


LES CARACTERES AZERTY ACCENTUES 


Lorsque vous frappez une touche au clavier, vous ne commandez 
pas un caractère mais un code ASCII, un nombre compris entre 1 et 
151 (voir pages 262 à 265 du manuel), lequel va aller chercher à partir 
de l'adresse 46080 l'image à dessiner à l'écran. 


La touche du clavier ORIC marquée ‘‘’Q'’ équivaut à CHRS$ (80) ; 
80 = code ASCII de Q, vous ne pouvez pas lui faire commander CHR$ 
(65), 65 étant le code du A. Donc désolé pour les dactylos, mais le 
clavier des ORIC restera un QWERTY. En revanche, nous pouvons faire 
apparaître certains caractères spécifiques aux claviers AZERTY fran- 
çais. Pas n'importe où ! Mais aux codes ASCII de la norme internatio- 
nale. Pourquoi ? 


La plupart des imprimantes possèdent une option ‘‘nationalités de 
claviers’. Par exemple, on a le choix entre USA, Angleterre, France, 
Allemagne, Danemark, Suède, Italie et Espagne. Les différences por- 
tent sur une dizaine de codes ASCII environ. Il s'agit de caractères et 
d'accents spéciaux. Ce choix de nationalités s'effectue soit par une 
batterie de petits commutateurs (‘’switches'’}, soit par un ordre spé- 
cial à la suite de LPRINT. Supposons que notre imprimante ait été ainsi 
positionnée ‘’France’’. Non seulement, nos caractères nationaux (à, é, 
è, c, à, 8 et ©) apparaîtront à l'écran, mais aussi sur l'imprimante ! Puis- 
que ce sont les mêmes codes ASCII. En voici la correspondance 
officielle : 
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ASCII FRANCE | OQWERTY 


© 
\ 
{ 
} 
] 
[ 








Il suffira de faire GOSUB 50 000. 


SUOGG AZERTY (56 DATA) 
SUASG AD=4659%: GOSUE 50300: ‘G 
SUU4Q ADr46816:GOSUE SOIQG: ‘ 
SGUSA AD=-47@64: GOSUR SQEGG: ‘ 
5 AD=47080: GOSUE 50:00: ‘ 
“0Q74 AD=-468%4: GOSUR SUE00: 
SOA AD=4707%: GOSUR SOTQG: 
AD=46808: GOGUE 50300: ‘ 
RETURN 

FOR Ir@ TO 7:READ À 
FOEE AD+I,A:NEXT: RETURN 
DATA 16, 8,78, 4 
DATA ï 
DATA 
DATA 
DATA 30, 
DATA 16, 
DATA 24,:6,74, @, @, @, @, 


re 





mi -- Dites 
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Que reste-t-il comme caractères redéfinissables ? Seulement & (38) 
et £ (95), c'est vraiment peu. Aussi, si vous avez réellement besoin 
d'autres caractères très spéciaux comme plusieurs lettres grecques; 
des signes mathématiques, etc., vous pourrez transformer quelques let- 
tres minuscules dont vous êtes sûr de ne pas vous servir (j, k, w). 
L'adresse départ sera toujours : 


LES CARACTERES SEMI-GRAPHIQUES 


Pour dessiner, on était obligé de passer en HIRES, d'où l'idée de 
redéfinir tous les caractères minuscules en petits symboles graphiques 
élémentaires, ce qui permet de mélanger intimement texte et dessin. 
On dispose ainsi de vingt-six motifs /uxtaposables, c'est-à-dire que l'on 
a utilisé les ‘’pixels tabou”, afin d'obtenir des tracés continus dans les 
sens horizontal et vertical. 

Si vous êtes intéressé par ce procédé, enregistrez-le sur une cas- 
sette à part ; vous pourrez le joindre à un de vos programmes par CLOAD 
#1, J (ATMOS). 

Par GOSUB 62300, il apparaît à l'écran la légende lettres (ici en 
majuscules)/motif. Par exemple, après être passé en CTRLT, la lettre 
E (donc e) donne un carré. 


GBEGEE MINISTYLE : M, ARCHAMBAULT /84 
82818 MINUSCL ILES=S" YMÉOLES GRAPHIQUES 
ÉEGEG FOR Le4é85é TO 47056 STEF 8 
GSEGEG FOR Ie TO 7 
&204@ READ 8 

GEGSAQ FOFE L+T, 
BEBGEQ NEXT:NEXT 
Fe " 2G8 DATA 





a, à, 
GZ1RS D ne 
671m6 DATA QG, @, @,6% 
62107 DATA 8, 8, 8, 8, 
62108 DATA 1, ©, ?, 
62189 DATAZ?, 16,16, 
62118 DATA 1, 6,24,%7 
63111 DATA 8, 4, 4, 4, ®, ? 
6211? DATA @, @, @, 1, ?,12,16 
62117 DATAZ?,32,16,16,16, 8, 8, 8 
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62114 DATA @, @, @,22,16,12, 2, 1 
62115 DATA B, 8, 8,16,16,16,22,2® 
62116 DATA32,74, 6, 1, € 
BOLIT DATA ds»... 58 

6118 DATA4B, 8, 4, 4 

62119 DATAS3,53,18,12, | 
682120 DATA 3, 4, &, 8, 8, 8, 4, à 
67121 DATA G,12,18,%3 


pt 










à DATA 53,33,32 2 

: DATA @, @, @, B,22,22,22,32 

24 DATASZ,27,22,32, 0, Q, @, @ 

25 DATA 1, 1, 1, 1, @, @, @, @ 
DATA G, @, @, @, 1, 1, 1, 1 
RETURN 

‘LEGENDE 

CLS 

FOR 1=65 TO 77:PRINTOHRE (CI) g" " 
:NEXT: PRINT 

SRSEQ FOR 1:97 TOLUG:PRINTOHRE CDs" " 
s:NEXT: PRINT: FRINT 

BESAU FOR 1:78 TO9Q:PRINTOHRE CL)" "s 
:NEXT: PRINT 

6RESQ FOR 1=110TO0122: PRINTOHRS (IDs" " 
12 NEXT: PRINT: PRINT 

6239Q RETURN 









Après avoir fait GOSUB 62000, lancez ce petit programme de 
démonstration. 


1@@ ‘CABRIOLET 
1@G5 CLS: PEROU CHRE (17) 
114 pie dd cidd " 
LeFe" q ubbb ui" 

15Q Cire" bbsbbbbhsb" 

148 FOR Tex TO EG 

190 FRINTET, 93: CLS: FRINTET, 143: C8#: FRIN 
T&T, LICE 

160 WAIT ZS:MEXT:EXFLODE: PRINT CHR#(17 
} 

194 END 
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Mais le grand intérêt de cette méthode réside dans les program- 
mes d'animation graphique. Non seulement la rapidité est telle qu'il faut 
la freiner par des WAIÏT, mais comme nous sommes en mode TEXT, 
nous bénéficions des effets colorés des attributs. Disons que nous som- 
mes ici bien plus proches des programmes en langage machine que du 
HIRES en BASIC, mais en conservant sa simplicité. Essayez ce petit 
scénario dont le graphisme n'a rien à envier à certaines cassettes du 
commerce. 


24 ‘ :SOUCOL IFE 

FÉRINT CHFCE (173 3 PAFER4z:INER 
Les 'ALUNI SS A GE" 
l. ET "béebihbeihbebihihebiht 
hisihi hebs" 











240 FOR TO és PRINTEE, La CHRE CIRE 
)INEËT: FR INT&S as CHRE (LEE) 
Lg Slk=" Hs 
Hz" duc " 
EPer 4 


es FOR He TO 14: GOSUER 444 
Wé TITI GS NEXT 

LRQ FOR HeliG TO ls VeH-1@: GOSUE 440: 4 
AIT LUENEXT: WAITEGG 
Si FRINT ne ter "a SHOCT 
Le FOR Va TO S STEF- Le GOSUR 440: dé 
IT OIGENEXT 
LSQ FRINT “3 6 CHERE (129) 

40 ZAR:FOR Ie29 TO © STEF-I1:FRINTET, 
Gi "FT MiWAIT LeNEXT 

SO FRINTES, és tx Mr EXPLODE: WAIT SGFE 


LU " 















SG FRINT CHR (17) : END 
4 QE FRINTENH, Vs GlE: FRINTEN, V+ls GTX 








410 FRINTEH,V+Ss SE 
SG RETURN 


Æ : PRINTEH, V+5s SIF 


Que la ligne 230 ne vous effraie pas, c'est pour dessiner un sol 
lunaire. La soucoupe volante est définie par seulement six caractères 
(lignes 260-270). En ces quelques lignes, la soucoupe se déplace hori- 
zontalement, puis descend en oblique, change de couleur à l'alunissage. 
Un temps d'arrêt. Un vaisseau ennemi apparaît, la soucoupe décolle 
alors à la verticale, s'arrête à l'altitude de l'ennemi ; sa coupole devient 
rouge, lancement d'un missile qui détruit l’autre vaisseau. Si cela vous 
dit de continuer. 
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16+8+4=28 


Lot 32+2=34 
LE 32 + 2 = 34 
En 32 +2 = 34 
ni 32 +2 = 34 
a 16 + 4 = 20 
nl 132+16+4+2=54 


CL 





" 0=0 


colonne et ligne “interdites” 


Les huit octets codifiants ce caractère (lettre OMEGA), sont 
donc : 26, 34, 34, 34, 34, 20, 54, ©. Les deux bits de gauche 
de chaque octet ne sont pas pris en compte (valeur maxi 63). 


Figure XI 1 


95 


Grâce à la fonction CHAR, ces figurines sont transposables en 
HIRES. Vous serez alors étonné de leur vitesse de traçage ; vitesse qui 
serait impossible en les redessinant constamment par des DRAW ! 


Autre utilisation, agrémenter des pages d'écran texte, mots souli- 
gnés, encadrés etc. 


Exemple : 


nr “20 E HCADREMENTS 





| Ë ENCADREMENT. a" 
Ado Mar ou Neo 
33 "OU MOT SOLULIGNE" 
3 "bb EED " 
HZ: FRINTET, 15 "ets NEXT 
24: PRINTEZ, Vs "e"s PRINT 









î FOR Vas TO 
7,Va"v MuNEXT 


SGG FOR Les TO E7s FRINTET, és vus NEX 
F 
18 FRINTEIG,1G:2GET R#:CLE 
898 END 


Deux remarques : 

— Rien ne vous empêche de modifier les symboles de la figure XI 2 
afin d'obtenir des dessins ‘‘pleins'”, par exemple un disque plein pour 
la lettre ‘‘v"” 

— Les dede dits ‘’alternés’’ obtenus en LORES 1 (ou par attri- 
buts de ligne) n’ont aucune application pratique en France : vous pou- 
vez les redéfinir également mais en changeant l'adresse départ qui n’est 
plus 46080, mais 47104 (ATMOS). Ils seront reproductibles en HIRES 
si le deuxième paramètre de la fonction CHAR est 1 au lieu de zéro. 
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PRINT res 





Chapitre XII 


LES FONCTIONS BASIC MANQUANTES 


Nous avons déjà construit les fonctions INSTR, PRINT USING et 
quelques autres, mais pour que cela soit opérationnel, nous allons grou- 
per ces sous-programmes utilitaires sur trois cassettes différentes : 
e le basic chaînes ; 

e les aides à la programmation ; 
e les aides à l'imprimante. 

Leurs numéros de lignes sont tous supérieurs à 50000. Le but est 
de pouvoir ajouter au programme en cours le contenu de telle cassette, 
et ce, par CLOAD ‘ ‘’, J (ATMOS). 

La première cassette, vous l'avez déjà en majeure partie ; le listing 
suivant vous permettra de la compléter si nécessaire : 


Une fois votre programme terminé et vérifié, vous pourrez alléger 
l'ensemble en supprimant les modules inutilisés. 
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UTILITAIRE « BASIC CHAINES » 


49999 END: men me me 
SQOUGG ‘BASIC CHAINES : 10/84 
SOATA ‘AZERTY (56 DATA) 
SOQEA AD=46592: GOSUE 50300: ‘ 
SUGA4Q AD=-46816: GOSUE SA:QG: 
SOUSA AD=47464: GOSUE SOEQQ: ‘ 
SG06A 8D-47080: GOSUE 50:00: 
“G074 6D=46824: GOSUR SO3Q0: ‘ 
SOASQ AD=47472: GOSUE SOEQG: ‘ 
SGGSG AD=46808: GOSUR SOEQQ: ‘ 
50290 RETURN 
SGSGG FOR I=Q TO 7:READ À 
SOS FOKE AD+I, A: NEXT: RETURN 
50:70 DATA 16, 6,28, 2,30,% 
50:30 DATA @, @,2%0,22,22,29, 
50340 DATA 4, 8,28,34,62 
50350 DATA 16, 8,28,34,62,5 


PA ue LS be ra ef (RE 







ADD nina men one on 
51000 ‘INSTR 


4,30, G: 
HQ, A: 
30, Q: 
BP, 40, A: 
SA DATA F0, . 34,28, 2,60, @:° 
HUE? DATA lé, 6,5%4,7%4 .54,38,26, @s 
GGE60 DATÉ rare o; &, @, &, G:° 


É 


uns 


PT —— 


J1014 ‘Flace KE du mot MOF dans le tex 


te TXÆ 


CARO EeQ@s FOR Tei TO LENCTXH): IF MID 


CTXE, LT, LEN (MO) ) MCE THEN Ex 
5184 NEXT:RETURN 

Si 1 9 c Q Puis an nées ces once anse vin vo mes use ane cie cas ones aies 

JeB0GE ÉRINT USING HA HA 








RÉ formate 


G14 ‘FUESFORMATA4NEBENombresRetourne 


CeDrG TXFSPUSE: MO", Me GOSUR 100: EF: 


F 
SAN LTELEN (PU) 2 LESE- 13 LDELT-K 


JeQSG IF EÉxQ THEN LEelLT:LDEe0Q: IF 4ES CN 


pet THEN NE 


JeU6Q NEFESTERSÆ (NEO 3 LELEN (NR#) 12 IF NE 


28 THEN LaeL+1 
JeRéS NEFERIGATECNEE, L) 


Je07@ IF ARSINE)E.G1 AND NRS:Q THEN G 


QUSUER S£SQ@: GOT EL EG 
JeQGQ TXFENRE: GOSUE S100@ 
SeUSA IF EeQ THEN ESF=RTGHTEÆ (" 
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+ 


MES, LE) 8 DÆE&LEFTÆ(" "LD s GOT SA21 
à (à 
Del@ EFeLEFTECNEE Et) s DESRIGATECNEXE 
at) 
RSA IF EFeg THEN NEFERTGNTE CT 
MHEF LT) GOTO 4150 
LE NRFSRTGNTE CC" MÉEFSLETEUMS NX 
LEFT (DE4+" MLD) 
4 RETURR 
“FORMATAGE PETITS NON ERES 
Ne VAL CÉTGATEINEE, 5 ) 1 
TRE CNE LBBGBA) 
CHE ET GITE COCHE, LEN COCHE 10 
D TE CORRE", NZD +CHE 





















L Æ CDE, LD) 
SHeLEF TE C" ab) 
LFONBSQ THEN E#ÆeRTGNATE €" ee 





NEC EH OA ÛE 
RETURN 
"KEFC fi UN MENU 
E ner re T Re et M$ UE envoi e M. 






ENT Te ? 

DUC FRINTETT, 241 "REPFONSE (rs FOR læl 

TO LT-1Ls FPRINTMIDEUCTÉE, LL) 4" MR NEXT 

m4 FÉINTMIDE CTXE, LT, 1) +10) us MES GET 
MICIE 
HSGSA GOSUR SIGAG:IE Eee THEN FRINTCH 
RE (14): GOTO SEA 

Et FETURN 











"SURSTITUTION DE CHAINE 
500 14 TXEÆRCHAINE BECEPFTIVE 
SOEUR MOFECHAINE  IMPFOSEE 
SG ESFOSITION DE MO DANS TX 
AU EEE 
SEUSATXESLEETEÆ COTE, KO) <MCE+RTGHTE CTXE 
ÿLEN CTXE) -E-LEN CMCI#) ) 
SOU RETURN 
SDS PE TN DE LISTING--- 
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L'UTILITAIRE « AIDE A LA PROGRAMMATION » 


Il groupe trois modules qui seront inutiles une fois le programme 
terminé. À effacer si vous avez le temps. 


— Le module CHRONO est un chronomètre électronique au centième 
de seconde. On l'utilise pour comparer les durées de deux processus 
en concurrence. C'est lui que nous avons utilisé pour chronométrer les 
différentes boucles de 1 à 1000 au début du chapitre VIII. Le top départ, 
c'est GOSUB 54000, ce qui impose la valeur maxi (65535) au comp- 
teur situé à l'adresse 630. Il décompte en centièmes de seconde (piloté 
par quartz). 

Le top fin est obtenu par GOSUB 54100, qui lit la valeur du compteur. 
Puis calcul en minutes, secondes et centièmes , le tout présenté en 
‘toutes lettres” si vous demandez : 


PRINT CH$ (CH = CHRONO) 


Une réserve : entre deux tops, n'utilisez pas l'instruction WAIT, 
car elle utilise le même compteur... Durée maxi, 10 min 55 s. 


— Le module RENUM renumérote les lignes de programme : vous fixez 
le début, la fin et le pas. Il ne corrige pas les GOTO et GOSUB, mais 
vous présente une liste des anciens et des nouveaux numéros de lignes 
afin de faire ces retouches à la main mais sans erreurs. 
C'est le programme de la page 73 du manuel ATMOS mais bien amé- 
lioré. En tapant GOSUB 56000, le bas de l'écran vous demande la zone 
de lignes à renuméroter et à quel pas (100 lignes maximum). C'est très 
rapide. Voulez-vous le tableau de correspondances des lignes ? A 
l'écran, tapez GOSUB 56500 ; sur imprimante, faites GOSUB 56600. 
— Le module STAT vous communique le bilan mémoire. Tapez GOSUB 
60000 et sur la dernière ligne de l'écran apparaît ‘en clair’” le nombre 
d'octets utilisés par le programme, et combien il en reste de disponible. 
Pour plus de précision, il est préférable de faire RESET avant de 
commander STAT. 
La valeur fixe 37629 (ligne 60010) correspond à l'ATMOS. 

Note : Dans un esprit de standardisation, nous donnons à nos 
modules le nom de la fonction BASIC qu'ils remplacent : c'était le cas 
pour PRINT USING, INSTR, c'est ici le cas pour RENUM et STAT. 


49889 END: eee en a 

SA4GUGQ CHARCNO — CHE (maxisl@mnm 558) 

JAGIR DOFE 650, 655388 DEFART 

402 RETURN 

A1AQ TAEDEER (C&50) » ARRET 

4110 TSr (éSSES-TA) / 100 

S412Q IF TS£éG THEN CHE&GSTRE (TS) +"S" 
RETURN 
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BALE TMEINTTS/ 46610 2 CHESGTRE CTMD + er" 
+STESE (TS TME SG 4e" 

34} 1 4 RE TURN 

Es 4 ec 3 D amms srue som ee sets 0e 60e eee 00e 00000 ones ones 

és G Re NACRE ee GOT, GOSLE) 
OBS DIM LIU, 

Môle FARINTEÉS 2h 3 URENUN 
UP DE: G à 

sé pee. PRINTEIB, 4; "QUI DEVIENT. ."32IN 
FUT NL. 5 5600 

és @ PRINTE7 , 243 "JUSQU'Atincluse) "4: 
INPUT FI: GOSUR Séàe 
3 64H LF F1] LA THEN FI=49998 
F 2443 "AU FAS DE "38 INFUT 






LIGNE DEFART 


















FA Ë 
Un sels REPFEAT 
Ha LT: “DEE CMD TE LISDER THEN 56046 
QG ELSE LT, 1)=LTsLCT, 4) ENL 
ré e( DOKE Ce NL es NLENL +R Te T4 
6498 SEE (W s UNTIL DEEE (We 
TURN 
SARQA FRINTES, 243 CHR (14) 2 RETURN 
Dés 
S6S0Q CORRESF, LIGNES 
sé a FRINTTANCTIEN,  NOUVEL, LIGNES 
- A Tele REPFEAT 
56540 PRINT LOT, 19 ,LCT,2) 8 ILOGI+1 
“ UNTIL LT, 12=û 
4 RETURN 
56600 CORKRESF, LIGNES IMPFRIM, 
Séél LE NT'ANCTEN,  NOUVEL., LIGNES" 
GOGEG LFRINT 
ci &EQ LelsREPEAT 
é 5040 [a MT LOT, AD LOT SE) se leT4 
# LUNTIIL LL CT, 10 
RE TUFN 
&a@ AR STAT 
SEAL MLEÆFRE 000 MR ET GQRRE (D 
AB FATNTÉE “ ns Pris ts MPatiil rest 
es Lg "actete!" 
- ÉGAESG METLEN 
5999 ‘---FIN DE LISTING--- 








Hi 
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L'UTILITAIRE « AIDE A L'IMPRIMANTE » 


Disons tout de suite qu'il ne s’agit pas de l'imprimante ORIC MCP 
40, ni de la SEIKOSHA GP 100, mais de l'EPSON RX 80. Pourquoi ? 
L'auteur estime que l'ORIC ATMOS a la qualité professionnelle (ce serait 
chose partout admise si le prix de vente et le volume du boîtier étaient 
doubles...). De ce fait, il est logique de l’équiper d'une imprimante pro- 
fessionnelle, certes plus chère mais d’un rapport qualité/prix aussi 
exceptionnel que celui de l'ATMOS. Qu'avons-nous en plus ? 


La vitesse de 100 caractères par seconde, une qualité d'impres- 
sion très proche de la ‘’qualité courrier'", une robustesse légendaire, 
et surtout une multitude d'options d'impression : plusieurs tailles et for- 
mes de lettres, plusieurs ‘‘claviers'”, trois épaisseurs de traits, redéfi- 
nition des caractères, et d'innombrables gadgets, le tout programma- 
ble à partir de n'importe quel micro-ordinateur. 


Si vous possédez un autre type d'imprimante, l’auteur ne veut pas 
que vous vous sentiez lésé ; aussi pour chaque module de cet utilitaire, 
nous indiquerons d'une part le fonctionnement détaillé et d'autre part, 
la traduction en clair des ordres BASIC de l'EPSON RX 80. Ainsi, il vous 
sera facile d'adapter ces sous-programmes à votre imprimante. 








45 pe Li E F= ND: F7 greg raenss due unes ont Se dstestaln Di pee ar das 188 Re Gi omt HÉMTa Ws 
LAB TINSTE 
MIGIR Place E du mot MCE dans le tes 


ka TXE 
JiQEG ‘Fas de Elanc au debut de MO 
IR : Eefis FOR Teil TO LENICTX#)is IF MID 


TX, T,LENCMOH) DEMO THEN Ex 
il GA è NE XT 8 RETURN 
519 D nn tres enanen tentes 


:HARD COPY texte 

@ FOR Ie46@4û TO 49080 STEF 44 
SG4G FOR JeQ TO 9: CePEER (I+J)isLPFRIN 

Le CHEGE CO) 3 à NEX T 

QG LFRINT CHR CI): NEXT 

sé RETURN 

y CG Fun nv étés moe ire ave sata ste oûiée cites cite een eus tan 

at REPONSE UN MENLI 

41 (à TX et MOF, renvoie K 

XF) TTelS-UTIIF TTSE TH 
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SO0EGQ FRINTETT, 242 "REFONSE CM FOR Te 
TO LT-1s FRINTMIDECTXE,T 140 "ss NEXT 
Sou4Q FRINTMIDE ÉTXE LT, 14") rss GET 
MCE 

doUSse GOSUE SIQAG:IF Eee THEN FRINTCH 
FE (143: GOTO SA@m 

SotéQ RETURN 

EG À éne arte ttes asèri iébtes ès HEURE diesé 3aéns fait csv mes étais 8e 

37400 “HARD COFY HIFRES 

37014 LFRINT CHRE C7) aa CHRE (27) MANC 
HR Cé) : 

S7020Q DIM Z (20): Ce 
S7AUEG FORGH=4G9EL TO 480999: let 

55 IF GHFA4GSEL THEN Cs-é64 

7444 FOR es TO 6H+7$460 STEF 464 
SPAS ES 

7060 ZT) =FEEE (A): NEXT 

S70804 LPRINT CHR (27) Mae UCHRSE C4) 3 CHERE € 
Ds CHERE (@) à 

37090 FOR Jel TO 1 STEF-1 

37A9 YzZ (CJ)+0 

37100 LFRINT CHREGCVOuuNEXT 

711 LPFRINT CHRGE COLE) se NEXT 

7180 LPRINT CHRECE7) Es RETURN 

6 G co eo ce °° sunis cvs corse 08 orepe iuuté eve an6e0: an06e soc some investie dou ne 

GIGAG IMPRIMANTE EFSON RYX 86 (awitch 
aur Fica) 









CHEE " 

GiQEG FHRINTES, 1%" (M = MAXI 3 € = QUI 
TTER) " 

1020 FRINTES, 103: "NOMBRE DE CARACTERE 
S FAR LIGNES: "33 INPUT KE 

61048 IF REH&"OQUTHEN CLS: RETURN 

DIGG IF REFE=UMUTHEN LPRINT CHR# (27); 
"a": GOT 618804 

iQ RERVAL(REH)4IF REA THEN 61006 
&1074 LFRINT CHR (27) ; "EM: CHRE CE7) "0 
Ma CHRE (RE) 5 

GSiQEA CLS: FRINTEIS, 65 "CLAVIER: FRINT 
ELA, Sr UU & US, As FRINTGIA4, 113 "EF & FR 
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LAS FRINTEIS, 1e Ge GERMÉNY ES FRINT 
Gi, lite = ENG LAND" 
êE 1 QAR FRINTEIG,17s "0 = QUITTER": TXEs" 
“to sGOSUR SEGA 
_EeS THEN CLS: RETUR# 
PRINT CHERS C7) PARUS CHRE CE 10) 










61 120 FRINTEIL, 23 "FORME 
63 “N sm NOFMALE {pi 
B115 5 PR IN TEIR,BLUE 
Bite & CONDEN! 
61140 FRINTE1@, 12; "L æ LARGES" 
ils TXFRUNECL Ma GOSUR SSQRE 
4 ON E GOTO S1240,61170,61164@,611 


LETTRES" 









ss FRINTET(G 






él 
tfA 
1170 LFRINT CHRE C7) as GOTO 8126 
118 LFRINT CHRE CLEO) se GOTO 61240 
. 196 LPRINT CHRE (270) Wa CHRE C1) 
1800 CLS: FRINTEIG,S: "FORCE DE LA FKA 











21Q PFRINTELS, GUN æ NORMALE": FRINTE 
sit  RENFORCEE a TX de NR GOGUR 5 





ë 12 CU IF Es THEN LFRINT CHR& C7) UtE" 
“612%0 CLS:RETURN 
ÉRG eeTN DE LISTING--. 


LEGENDE DE CODES D'EDITION UTILISES 


Ils sont de la forme LPRINT CHRS (27)... CHRS (27) est le code 

de la touche ‘ESC’. 

ESC ‘a : Initialisation de l'imprimante 

ESC ‘’A'" CHRS$ {(n) : Interligne en n/72° de pouce 

ESC ""*" : Impression par ‘‘bit image”’ (et non plus par 
code ASCII) 

ESC ‘’Q’’ CHR$ (n) : n caractères par ligne 

ESC ‘’R'’ CHR$ (n7 : n de O à 10 : sélection entre onze claviers 
internationnaux 

ESC ‘’M'' : Lettres forme « ELITE » 

CHRS (15) : Lettres forme « CONDENSEE » 

ESC ‘’W"' : Lettres double taille 

ESC *‘E"” : Trait renforcé (ou ‘’gras’') 
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LE MODULE « HARD COPY TEXTE » (lignes 53000-) 


Il y a copie de l'écran sur l'imprimante. On lit la mémoire d'écran 
ligne par ligne et on imprime le code ASCII trouvé. C'est banal, mais 
très rapide. 


LE MODULE « HARD COPY HIRES » (lignes 57000) 


C'est assez complexe, mais relativement rapide (environ trois minu- 
tes). Le principe est le suivant : 


L'écran haute résolution est composé de 200 lignes. Chacune de 
ces lignes est l'illustration binaire de 40 octets mis bout à bout. Cha- 
que bit = un pixel. Donc 40 x 6 = 240 pixels (ou points). On ne peut 
donc lire dans la mémoire d'écran que des octets, donc des ‘‘tirets’” 
horizontaux de 6 pixels chacun. 


Malheureusement toutes les imprimantes à aiguilles (ou à ‘’matri- 
ces"') impriment des images binaires verticales. Dans la tête d’impres- 
sion les huit petites aiguilles sont disposées les unes au-dessus des 
autres. La parade est simple, il suffit de tourner le dessin d’un quart 
de tour sur le papier ; ainsi les octets horizontaux de l'écran sont trans- 
mis tels quels à la tête d'imprimante, et il ne sera pas très gênant de 
regarder l'image finale en tournant la feuille de papier. Le bas de l’image 
se trouve sur ce qu'on appelait le bord gauche du papier. 


Nous allons donc explorer la mémoire d'écran par ‘‘bandelettes’’ 
verticales, soit 200 octets que nous mettons en DIM Z (200). Une fois 
rempli, nous vidons son contenu sur l'imprimante, et ce 40 fois de suite. 


La fidélité est telle qu'un point isolé (un centre de cercle) est par- 
faitement reproduit. 


LE MODULE « OPTIONS » (lignes 61000) 


Il a pour rôle de charger la mémoire de l'imprimante avec diverses 
options. Tout ce qui sera ensuite commandé par LPRINT ou LLIST sera 
imprimé selon ces modes. 


C'est une suite de menus à l’écran, d'où la présence des deux vieil- 
les connaissances, INSTR et REPONSE MENU (51000- et 55000). 


On nous demande successivement : 
le nombre de caractères par ligne, 
la nationalité du clavier, 
la forme des lettres (quatre), 
la frappe, normale ou renforcée. 
C'est ultra-rapide car, mis-à-part la première question, on n’a pas 
à faire RETURN. 
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LES TROIS CASSETTES D'UTILITAIRES 


Faites deux enregistrements par cassette. Il est indispensable d'ins- 
crire sur l'étiquette (du boîtier) le plan de chacune, c'est-à-dire la légende 
de chaque GOSUB et peut-être quelques détails d'emploi figurant dans 
les REM. Par exemple, pour la cassette n° 2 (programmation), vous 
inscrivez : 


54000  : CHRONO départ 
54100  : CHRONO arrêt — CH$ 
56000  : RENUM 
56500 : PRINT LISTE n° F 
56600 : LPRINT LISTE n°» 
60000  : STAT 


La première fois nous avions logé tous ces modules sur un seul 
(et long) enregistrement. Ce fut une erreur pour les raisons suivantes : 
° Trop long à charger. 
° Trop de mémoire occupée inutilement (près de 4 500 octets au total). 
e Effacement partiel ou total fastidieux. 
° Un programme court devient donc long à charger (car il a tout le bloc 
en queue). 
e Il est impossible d'avoir besoin de seulement la moitié des modules 
pour un même programme. 


Voilà pourquoi nous les avons ensuite fractionnés en trois (c'est 
un minimum). Ils sont alors très vite chargés et, de ce fait, on les uti- 
lise sans hésiter. 
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Chapitre XIII 


HIRES SANS IMPATIENCE 


Il serait faux de vous laisser croire qu'on peut tout faire dès que 
l'on est en écran HIRES, du moins par le BASIC seulement. Les super 
dessins animés des meilleures cassettes de jeux sont le plus souvent 
en langage machine. Par le BASIC, on peut s’en approcher, pas l’éga- 
ler, surtout en ce qui concerne la vitesse. Vous avez déjà sans doute 
remarqué que les fonctions DRAW et CIRCLE ne sont pas 
instantanées. 


Dès le départ, il faut faire un choix entre les graphismes en modes 
TEXT ou HIRES. Voyons les avantages et inconvénients : 


— TEXT : Figures simples pouvant se déplacer rapidement (notre pro- 
gramme SOUCOUPE du chapitre XI). Ces figurines peuvent être ‘‘plei- 
nes’ mais petites. 


— HIRES : vu la lenteur du tracé, il est scabreux de faire une anima- 
tion. Contrairement au mode TEXT, un deuxième tracé n'écrase pas 
le premier, il s'y superpose. En revanche, le tracé de la forme peut être 
programmé, paramétré par des calculs. Dessiner une petite forme aux 
contours compliqués demanderait une fastidieuse suite de DRAW. II 
n'est guère envisageable de ‘remplir’ un motif, sauf s’il s’agit d’un 
rectangle par la fonction FILL. En HIRES, on peut très facilement dessi- 
ner des grands dessins géométriques, des courbes etc..., ce qui serait 
quasi délirant en mode TEXT. 
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Un autre avantage de HIRES est qu'il peut reprendre, par la fonc- 
tion CHAR, des figurines obtenues par juxtaposition de caractères redé- 
finis, mais les mettre en animation (telle la soucoupe) est déconseillé 
pour deux raisons : 

— écriture lourde, 
— scintillement beaucoup plus visible qu'en mode TEXT, car il faut alter- 
nativement effacer l'image précédente. 


Dans un programme essentiellement graphique, il n’est pas hon- 
teux, mais au contraire astucieux, de passer tour à tour du mode TEXT 
au mode HIRES en fonction de ce que l’on veut tracer. 


La haute résolution est un domaine du BASIC franchement à part. 
Il faut prendre des habitudes nouvelles, puis les astuces de tracé vien- 
nent rapidement. 


Au début de cet ouvrage, nous avons dit que l'organigramme était 
obligatoire pour un programme long, et facultatif pour un court. En 
HIRES point d'organigramme, mais un PLAN de l'ECRAN, même si le 
dessin est simple ! 


Second point, il nous faut détruire une ‘‘légende'’. On croit sou- 
vent que l'on ne dispose que de deux couleurs PAPER et INK, puisque 
les attributs de ligne sont réservés au mode TEXT. FAUX, mais ils se 
programment autrement. 


A l'adresse d'un octet de la mémoire écran, il suffit d'imposer un 
nombre, par POKE, compris entre O et 23, aussitôt toute la partie droite 
de cette ligne subit cet attribut. En voici la liste : 


O encre noire 

1 encre rouge 

2 encre verte 

3 encre jaune 

4 encre bleue 

5 encre magenta 
6 encre cyan 

7 encre blanche 
8 


à 11 pas d'effet 
12 à 15 clignotant 
16 papier noir 
17 papier rouge 
18 papier vert 
19 papier jaune 
20 papier bleu 
21 papier magenta 
22 papier cyan 
23 papier blanc 


Essayez ce petit programme, son effet sera plus ‘‘parlant’’ et ins- 
tructif. Pour mieux les discerner, chaque attribut est appliqué sur cinq 
lignes consécutives (ligne 150). Remarquez la lenteur de la ligne 130. 
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Obsérvez bien l'avantage de la ligne 50, il faudra la réinscrire (pro- 
visoirement) à chaque fois que l’on met au point un programme en 
HIRES, car c'est un gain de temps considérable. Observez attentive- 
ment les effets de ces deux pages d'écran (INK en haut, PAPER en bas). 


16 
1 
AG CG 

4 42009: GOSUR 14% 

St GET RE: TEXTILIST-17@ 
6@ END 

1AR HIRES 

11 FOR Iz:FA TO 6% 

1E@ CURSET I,#0@,1 

154 DRAW 179,179,1:NEXT 
140 FOR IeQ TO 
150 FOR NeG TO 4z rft+4l 
16@ FPOFE &,I2MNEXT: € 
174 RETURN 












te + 


A présent, ajoutez cette ligne 165 : 
165 POKE 42018,17:POKE 42025,16 


Le premier POKE donne le départ d'un petit trait rouge (en paper), 
interrompu par le secona POKE qui remet le papier noir. Une sorte de 
« mini-FILL » mais avec la couleur plus facile à programmer. 


VIVE LE CURMOV ! 


La tentation du débutant est d’abuser de l'instruction CURSET pour 
redémarrer chaque série du DRAW, après chaque discontinuité du 
tracé : danger ! Imaginons un tracé géométrique assez complexe qui 
a nécessité cinq CURSET ; hélas, l’image est bonne mais le dessin est 
mal centré, beaucoup trop en haut à gauche. Il va vous falloir recalcu- 
ler chaque CURSET ; d’où cinq risques d'erreurs. Pour éviter de tom- 
ber dans cette galère, il aurait suffit de définir seulement le CURSET 
de départ et tous les autres décrochements de tracés par des CURMOV. 
En modifiant les coordonnées de cet unique CURSET, toute la figure 
se déplace sur l'écran... N'est-ce pas mieux ainsi ? 
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LE PLAN D'ECRAN 


Rien de plus facile et aussi de plus sûr. Prenez du papier quadrillé 
5 x 5 mm, format commercial 21 x 28 cm. Tracez à l’encre un rectan- 
gle 240 x 200 mm. C'est l'écran HIRES. Un carreau = 5 “points”, 
autrement dit 1 point = 1 mm. Dans le sens horizontal, il ne faudra 
pas dépasser la valeur 239, et 199 dans le sens vertical (vous avez 
droit aux valeurs zéro). 


Attention aux pièges des couleurs PAPER et INK, en effet : 


Sans rien spécifier d'autre que HIRES, vous serez en fond noir et 
encre blanche ; vous pouvez alors toucher le bord gauche (exemple 
CURSET 0,15,1). 


Après HIRES, vous demandez PAPER 4. C'est un attribut pour les 
200 lignes ; de ce fait, vous ne pouvez rien mettre de zéro à 5 sur le 
bord gauche (6 bits par attribut). Si en plus, vous demandez INK 1, c'est 
encore 6 points d'attributs. Le CURSET visible le plus à gauche sera 
donc positionné à 12, exemple CURSET 12,100,1. 


Sur ce cadre, faites votre dessin au crayon (pour gommer), en sui- 
vant le quadrillage. Ainsi, vos DRAW et vos CURMOV seront presque 
toujours des multiples de 5 (facilité). 

L'autre solution consiste à dessiner sur une feuille quadrillée vierge 
le motif qu'il faudra centrer. Marquez votre CURSET de départ. Avec 
un double décimètre, mesurez l'encombrement de votre dessin. Vous 
savez que son ‘’axe vertical’’ doit se situer vers 240/2 = 120. Votre 
départ est à 25 mm à gauche de ce milieu (un exemple), donc son posi- 
tionnement horizontal sera 120 — 25 = 95. Opérez de même avec le posi- 
tionnement en hauteur. 


Partant du point de départ, numérotez vos segments DRAW dans 
l'ordre. 


Grâce à ce dessin sur petits carreaux, vous connaissez déjà le CUR- 
SET de départ, et tous les déplacements des DRAW et CURMOV. II 
ne reste plus qu'à passer au clavier et tout ira alors très vite et sans 
erreur. 

Dans l'exemple qui va suivre, nous allons mettre tout ça en prati- 
que, en vous montrant en plus quelques petites ‘‘astuces pour 
fainéants”’. 


LA PROGRAMMATION HIRES 


Nous vous proposons de dessiner trois caricatures identiques de 
personnages à mines patibulaires. 

Sur le papier, nous n’en avions dessiné qu'un ; trois positions pour 
le CURSET de départ donc trois reproductions. Le personnage du bas 
est le premier et nous lui avons rajouté un petit détail sur son chapeau 
afin de vous situer le CURSET de départ. 
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Nous commençons donc par le chapeau, d’abord le tour de la coiffe 
dans le sens horaire, soit 6 segments qui nous ramènent au point de 
départ. De là, nous repartons pour les 3 segments du bord du chapeau. 

Première astuce de fainéant, nous nous servons des DATA, et l’ins- 
truction DRAW est dans une boucle FOR NEXT. 

Puis, nous faisons un CURMOV afin d'attaquer le pourtour du 
visage, encore dans le sens horaire (13 segments). 

Il ne reste plus que les yeux, le nez et la bouche. Etant donné qu'il 
y a peu de segments entre chaque CURMOV, on écrit chaque DRAW. 

Terminé. Seconde astuce de fainéant, les lignes 450 et suivantes : 
la fonction ON GOTO rend l'écriture bien plus simple et claire qu'avec 
des IF THEN ELSE. 

A noter que l'on a pas lésiné sur les REM ; ils seront très utiles 
pour modifier tel détail. 

Les valeurs dans les DATA ont été écrites très rapidement en sui- 
vant les segments sur le papier quadrillé. 

Au total, 31 segments DRAW écrits en si peu de lignes (et si peu 
de temps). 

Entraînez-vous en commençant par quelque chose de simple, par 
exemple, dessinez au crayon une maison avec porte, fenêtres et che- 
minée, et entrez tout cela en DATA. Votre rapidité vers la fin vous 
surprendra. 


200 ‘HESSALTYFES 
à HI PAFERA4: INK 

CURGSET 95,125,12CIRCLE %,1 
FOR lei TO O:READ H:READ V 

DRAU H,V,1:NEXT: CHAPEAU 
CURMOV @,15,1 

FOR Tel TO 1E:READ H:READ V 
DFAW H,V,12NEXT: VISAGE 

280 CURMOV 1@,1@,1:5CIRCLE %,1: CURMOV 
5,5, 1 

290 DRAW 5,-2,1:DRAW 10,5,1:DRAW 15,0 
,L:CURMOV-5,5, 1: DRAW-S,0, 1: "YEUX 

3@0 CURMOV-5, 10,18 DROW-S,5, Le DRAW-S , — 
5,1: 'NEZ 

310 CURMOV-5,15,1:DRAW 5,-5,1:DRAW 10 
,@, 1: DROW 5,5,1: ‘BOUCHE 

4AU@ DATA 5,-20,15,5,15,-5,5,20,-20,5, 
-20,-—5 


484 DATA -55,15%,110,0,-25,-15 
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ELECTIONS DÙ CLUBS DE EOULES 
ra 

UITAL 23 - 
CERF 1%. 
MEFFRE 17. 
ALLARD 12. 
SALINEOR 12: 
DURAND 93:1 
RENARD 6.1 


H 
E 
Ê 
D 
E 
F 
G 


. Ur IOTBEL 132 


 ENCORE--> E;QUITTER--> G;COPIE--> C\ 





Le ‘’Camembert”’ tracé et légendé en HIRES. 


000 
Ni 


HAN se CODE 


0000 
| Ne 





Entrée des données du programme ‘’Camembert”. 
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Illustration du programme ‘’KESSALTYPES". 


18 


AB DATE L 
14, a, 0 
446 DATA —-14,-10,0,-15,-10,-5,0,-10,1 
m,0,0,—5 

AS NEN+is ON N GOTG 464,474,480 
460 CURSET 55,30, 1:RESTORE: GOTO 
470 CURSETISQ,55,1:RESTORE: GOTO S30 
40 


1 IR, 1,5, 0,15, 1m 











CHAR EN CHARADE 


Il'est très facile d'écrire une chaîne en HIRES par la fonction CHAR, 
mais afin que cela ne soit pas fastidieux, il est pratique d'utiliser MID$ 
dans une boucle FOR NEXT. 

Supposons qu'il faille écrire la chaîne 

A$ ="''VOILA LES DALTON' 
pour légender le dessin précédent. Ce serait une longue corvée que 
d'écrire cette suite de CURSET, CHAR, code ASCII, CURMOV, etc... 
pour chaque lettre. Alors autant décortiquer la chaîne par un petit sous- 
programme (lignes 1000-). Ce programme fait suite au précédent. 


500 ‘TEXTE EN HIBES 

510 Af="VOILA LES DALTON":CURSET 120 
18,@:GOSUR 1000 ne 
520 AF="SOURIEZ...":CURGET 20, 170,0: 6 
OSUE 1000 aie 
56Q END 

1000 ‘ANALYSE CHAINE EN CHAF 

1910 FOR lei TO LENCAE) 

1020 CHAR ASC (MIDE (AE, 1,1)) ,0,1 

1854 CURMOV 6,0,@:NEXT: ÉETURN 





En ligne 30, nous avons mis le CURMOV normal de 6, mais rien 
n'empêche alors d'augmenter cette valeur afin d’espacer davantage 
les lettres. 
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LE DESSIN PARAMÉTRÉ 


Voyons des choses un peu plus sérieuses. Nous allons établir un 
dessin non pas par des DRAW immuables, mais par des calculs ; et 
pour illustrer cela, nous vous livrons un programme complet qui exé- 
cute une représentation des divers pourcentages par des secteurs de 
cercles. 

Ce petit logiciel va utiliser beaucoup de méthodes, d'astuces et 
de gadgets que nous avons déjà exposés. Nous vous conseillons de 
le sauver sur une cassette à part. 

Voici son ‘‘scénario” : 

— Vous devez d'abord donner le titre, le nom de ce ‘’camembert'”, par 
exemple ‘‘chiffre d'affaires 1985’, ‘‘élections du club'', etc. 

— Puis le nom de chaque élément (candidat, client, etc...), et sur la 
même ligne, le nombre d'unités qui lui correspond (voix, francs, etc...). 
Nous avons fixé un maximum arbitraire de douze éléments et un mini- 
mum de trois. 

— Lorsque vous avez terminé, tapez la lettre Q à la place du nom 
suivant. 

— L'écran vous demande si vous désirez une présentation des éléments 
par ordre décroissant des pourcentages (oui ou non). 

— Immédiatement après, c'est la représentation en HIRES du camem- 
bert, avec le titre, le nom de chaque élément avec son pourcentage, 
et le total des unités entrées. En bas de l'écran, 3 options : encore, 
quitter ou copie d'écran sur imprimante (ici EPSON RX 80). 


14 CAMEMBRERT Michel ARCHAMEAULT 64 
15 GOSUR 1QG@ 

24 CLS: FAFER6: INEG 

20 FRINTES, 3 TITRE" 3 s INPUT TI 

SO TISSLEFTÆ(TIE,2:5) 

40 DIM NM#CLE) ,CACIZ, SH) ,R#(12)s "12 VA 
RIABLES MAXI 


NIMÆ 
SO IF NES AND NMEÆE=UQOUTHEN NEN- 13 GOTC 
37 

66 NI (ND 







eLEFTECNMEX+" HT 

& IF À THEN FRINT@I1G,Z223: "Four quit 
ter NOM & Q" 

7 FAINTEZO, 44+N3 "COMERIEN’" 3 8 INPUT NE: 
NE VAL (NE) 

75 IF NB:Q AND NES: A" THEN 70@ ELSE 
CAEN, 1) =NH 

BG TET+CAN, LD): IF Ne12 THEN 87 
15 


85 GOT 50 


UN CLÉASGEMENT CO/N)D Use GET 

86 IF HE="Q" THEN GOSUR 2Q0û ELSE IF 
FUN THEN 97 

GG FOR Lei TO NsCAT, 2) CAT, 1) /TsCAt 
LH) ÆRKPIKCAUT, EH) +CACI-1,7):NEXT 

9S FAFERGé 

167 HIRES: FAPFERSs INEG 

11@ CURSET 8#,69,1:CIRCLE 70@,1 

126 FOR lei TO N:CURSET 82,99,û 

158 DRAW COS (CA CT, 7))Kk70,SIN(CA(CI,27)) 
KX7G,1:NEXT 

148 FOR IeN TO 1 STEF-1 

150 ALe(CACI, 3) +CACI-1,3))/5 

16@ CURGSET 6%,99,0 

174 DEAW COS CAL) #50, SIN (AL) «50,04 

156 CHAR 64+7,0@,1 

15Q NEXT 

QG TISLENCTIH) #és: CURSET C238-TTi 42,10 


210 TXF=TIEF: GOSUER 560 

215 CURGET 220,26,0@:CHAR 27,0,1 

SO He1SS:VesGs FOR 11 TO ON 

ESS PFCSCA(T, 2) #1Q0@: FOSINT CCFC+, QE) /,1 


220 RECDIECHRE (64+I) +" MANMÉ CI) +STRE( 
FO) NEXT 

248 FOR 1=1 TO N:CURSET H,V+I#15,0 
20 TXF=RE CI): GOSUR SOG:NEXT 

268 CURGSET Æ20Q,180,0@:TX#æ'"eur TOTAL"+S 
TRECTI):GOSUE SQG 

LOG PRINT: PFRINT'ENCORE--S Es QUITTER-- 
+ GCOFIE--% Css GET K#: FRINT:FRINT 
EG IF REE"C'THEN GOSUER 57008: GOT0 26 
ä 

IG IF RÆ="E" THEN TEXT: RUN 0 

F1 IF R#<S"O"THEN 2804 ELSE TEXT:END 
SG FOR F&1TQ LENCTX#) 

J1QG CHAR ASCIMIDECTXE,F,1)),0,1: CURMO 
V 6,@,@:NEXT: RETURN 

10G2 ‘TITRE 

1414 CLS: PAFERA4:INE T7: FRINTCHRE (17) 
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1020 FRINTEIR,45; CHR (129)3 "C0 AME M 
HER T” 

15 FRINTE 7,83 "Entrez le Nom du Tab 
leau," 

1040 FRINTE 8,103 "puis chaque Fartici 
part" 
1ASA FRINTGE11,2@3 "TAPEZ UNE TOUCHE" 
1U80 GET KE 
LIGA FOR 1225 TQ GG STEF-TL:WAIT S 
1114 FRINTE Ro CURE RRQ RE ANERGE 
1120 FOR TeQ@ TO ESsWAIT S 
1150 FRINTEQ, I: CHR CE7) "ROINEXT 
1144 FARINTOHRE (17) 
1154 RETURN 
2UGG CLASSEMENT 
210 FOR Jei TO Ni'E=Cé(J, 1) 
EGEG FOR IeJ TON 
2OSQ IF CACI,1)3eE THEN EmCACT, 1) :keT 
EF=NMEÆ CT) 
2GA4Q NEXT 
ES CAGE, LheCA(J,1isCACI,1)eE 
2060 NME CE) NME (Jo) 8 NME (Ji EE 
2Q7@ NEXT: RETURN 
La) 490 À. vote 0000 sos ce ve nome 0666 ne come nie tes ootne ones ones vent 
27000 ‘HARD COPY HIRES/EFSON RX-6@ 
7010 LFRINT CHRE C7) VE CHRE CE7) ANC 
HEC CE) à 

7024 DIM Z CEQ0) : Cx@ 

B70Q FORAHE=A4GUGÉL TO 409989: TxQ 

G7QRS IF AHFAGUSEL THEN C=-64 

37QG4R FOR A=ûH TO AH+79684 STEF 4% 
PAS IT +1 

706 ZE CT) EPEÉERE C6 a NEAT 

574084 LPRINT CHRE C7) a MCHRSE 4) 2 CHE ( 
La CHRE CA) 3 

7Q98 FOR JeT TO 1 STEF-I 

7065 Veæz (J) +0 
71804 LE FRINT CHE € Y}3 
6 LFRINT CHRE C1 

PARU LFRINT CHECE (27) nn: AE <E TUE 

be HG ee TN DE LISTING--- 





117 


En parcourant ces lignes, vous allez ÿ retrouver de nombreuses vieil- 
les connaissances ; rien ne doit être nouveau pour vous, sauf la façon 
dont nous tracons les secteurs de cercle. Il s’agit des fonctions mathé- 
matiques (trigonométriques) SIN et COS (ligne 130). Nous avions déjà 
traduit les divers pourcentages en angles exprimés en radians (ligne 90). 

A la ligne 170, nous traçons des bissectrices invisibles, afin de dis- 
poser la lettre légende (A, B, C, D...) au cœur de chaque secteur du 
cercle. 


Ce programme peut être utilisé à des fins professionnelles. La rapi- 
dité du dessin est surprenante. 


FILL EN FILE 


Programmer la couleur d’un rectangle FILL n’est pas chose sim- 
ple ! Nous avons fouillé dans cette fonction afin d'obtenir jusqu'à trois 
couleurs différentes sur un même écran. 

Elles dépendent des couleurs PAPER (P) et INK {1}. Nous sommes 
obligés de vous parler des couleurs ‘’complémentaires’’ (ou ‘’oppo- 
sées”’). Pour les retrouver, tracer ces six lettres (initiales des couleurs) 
les unes sous les autres. 

JMC 356 

BVR 421 
Ainsi, nous avons les complémentarités suivantes : 
Jaune/bleu ; magenta/vert et cyan/rouge et bien sûr noir/blanc. En addi- 
tionnant leurs codes, on obtient toujours 7,(3+4,5+2,6+1et0+7). 
Considérons aussi une ‘‘trace”’, un trait (DRAW) qui traverse le rec- 
tangle FILL. Soit K le troisième paramètre d’une instruction FILL. 


K 


Rectangle 
Trace 





Dans ce tableau 1/I=complémentaire de la couleur INK et 
1/P=complémentaire de la couleur PAPER. 


18 ‘FILL EN 3 COULEURS 
24 HIREE 
30 PAPER 
4@ INK 

54 CURGSET 34,2%0,0@ 
68 FILL 100,05,6% 
7 CURSET 80,40,1 
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RG FILL 148,@5,191 
SA CURSET 1:0,50,0@ 


1R@ 
110@ 
1:20 
150 
140 


LE 
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FILL 140,@5,192 
EURGSET 160,60, 
FILL 140,0@5,178 
CURSET 24,8@,1:DRAW 2104,6@,1 


FRINT" &i 191 192 
g" : 
ENT 


Mais savez-vous que FILL peut conduire à de superbes fonds à 


rayures ? 


eA@ 





‘FILL EN RAYURES 
HIRES 

PAPER 

INE 1 


FOR I=1 TO 1%:READ F:GOSUB 00 
GET Ré: NEXT 

DATA 79,95,122,150,161,16% 
DATA 164,168,170,177,212,27 
RESTORE : END 

CURSET 100,50,0@ 

FILL 100,7,F 

FRINTCHRE (14) 5" “ak 
RETURN 





Vous aimerez certainement K= 170, et K= 150 vous surprendra. 
Dans ces deux petits programmes de démonstration, évitez que 


INK + PAPER = 


7 
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Chapitre XIV 


LES CALCULS SIMPLIFIES 


Le but principal de ce chapitre est de vous éviter de sombrer dans 
des questions de détails, en vous livrant un éventail de petites formu- 
les très utiles et simples. Nous nous sommes bornés aux petits problè- 
mes que l'on rencontre fréquemment. C'est de l’arithmétique simple, 
uniquement ; et comme il ne s’agit pas d’un cours de mathématique, 
nous ne ferons aucune démonstration. De l'utilitaire sans plus. 


Mais tout d'abord, trois conseils : 
1) Si votre formule vous semble trop complexe, n'hésitez pas à la frac- 
tionner en deux ou plusieurs formules. Autrement dit, procédez par 
étape. 
2) L'ennemi juré est le risque d’une division par zéro. Veillez-y ! 
3) Dans une même formule, comptez soigneusement vos parenthèses 
: le nombre des ‘’(‘’ doit toujours être égal à celui des ’’}"’. 


LES TRAITEMENTS D'UN NOMBRE NB 

1) NOMBRE MAXIMAL DE DECIMALES 
NB=INT (NBxA)/A 

Pour 1 décimale A = 10 


Pour 2 décimales À = 100 
Pour 3 décimales A = 1000 
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2) ARRONDIR A L'ENTIER LE PLUS PROCHE 
NB=INT (NB +.5) 


3) ARRONDIR À UN MULTIPLE QUELCONQUE 
On veut, par exemple, arrondir des nombres de telle sorte que le 
chiffre des unités soit 5 ou O, mais la valeur la plus proche. 


Exemple :. 
652 — 650 ; 654 — 655 


Dans ce cas, on dit qu'on arrondit à « 5 près le plus proche » ; nous 
dirons pour cette formule générale à « R près le plus proche » 


NB=INT ((NB+R/2)/R)°R 


Avec ce petit programme de démonstration, amusez-vous à entrer 
pour NB et R les valeurs les plus fantaisistes (et décimales), voire néga- 
tives. Evitez seulement R=0. 


14 “ARAONDIF & K PRES 

29 INFUT'ARNSER 

LG INPUT ONOMERRE" : NE 

A NEZ=TNT CCNR+R/ 2) /FO #F 

JO PRINT" IR y CPRES ee 8 Ne FRINT 

él GOTC:E 

Les puristes remarqueront que la formule n° 2 est une simplifica- 

tion de cette formule. 


4) PARTIE ENTIERE SI NB PEUT ÊTRE NEGATIF 
PE=INT (ABS (NB)}*SGN (NB) 


5} MODULO 


(Le modulo est la partie décimale d'un nombre). 
MO = ABS (NB) -PE 
(PE de la formule précédente). 


LES TESTS SUR DES NOMBRES 
1] TESTS SUR DES MULTIPLES 


Exemple : (multiples de deux = nombres pairs) 
IF NB/2=INT (NB/2) THEN... (pair) 
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2} COMPARAISON DE DATES 


Il suffit d'écrire la date dans l’ordre millésime, mois, jour, et de tout 
fusionner en un seul nombre, exemple 850702 pour le 2 juillet 85. Dans 
le petit passage suivant, vous pouvez entrer successivement 2,7 et 
1985 ; tout sera formaté en 850702. 


144 ‘FORMATAGE DE LA DATE 

110 INFUTMJOQURT JE 

120 INFUT'MOIS"S ME 

LE@ INFUT"ANNEE "5 ÊE 

140 JÉERIGHTE COMITE, 2) 

150 MESRIGATE COGUAME, T5 

160 AFERIGHTE CAE, 2) 

174 DA=VAL CAF+MEHIE) s FRINT Dé 





Un tel formatage de la date dans un fichier va permettre un classement 
par âge ou par ancienneté. 


3] NOMBRE DE JOURS ENTRE DEUX DATES 


La méthode consiste à calculer le nombre de jours depuis le début 
du siècle (quel qu'il soit), et ce pour chacune des dates, et faire ensuite 
la différence. Une seule (mais petite) restriction : il faut que les deux 
dates soient dans lè même siècle. Nous prenons la suite du programme 
précédent afin d'entrer la date. 


200 ‘JOURS DEFUIS LE DEBUT DU SIECLE 
210 DATA 31,59,90,170,151,181,212,245 
273,204,234,265 

@ DIM M(12):FOR st TO 12:READ MI) 








LRQ JeVAL QUE) se Me VAL (ME) 8 AE VAL CAHILIF 
a= -@ Ed fe 1 QE 

M AFef- 1 

0 JSETÉSEkAPATNT CAF / 40 + M Me 1) +0 

200 IF OINT(A/4)=A/4 AND ME THEN JS=J 
G+l 

27@ FRINT JS; "JOURS" 

294 END 
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En DIM M(12), nous stockons les jours cumulés de mois en mois. 

Notre siècle commence en réalité le 1-1-1901 (et nonle 1-1-1900 
comme on aurait tendance à le croire). Par la ligne 230, l’an 2000 s'écrit 
dans la formule « 100 ». 

Le calcul de la ligne 250 tient compte des années bissextiles anté- 
rieures, tandis que la ligne 260 fait cette correction sur l’année de la 
date, et à partir de mars. 

Sur le plan pratique, il faudra mettre les lignes 210 et 220 au début 
de votre programme, alors que les lignes 230 à 260 seront appelées 
par un GOSUB. 

Pour le 1-1-1901, notre formule donne JS = 1. L'an 2000 sera bis- 
sextile, 1900 ne l'était pas, parce que ses deux premiers chiffres (19) 
ne donnent pas un nombre divisible par 4. 

Nos lecteurs historiens ont ainsi tous les éléments pour étendre 
cette formule dans le passé, avec des dates à cheval sur deux siècles. 


INTERVALLE ALEATOIRE 


Il s’agit d’un nombre aléatoire entre un minimum P (= petit) et un 
maximum G'(= grand). Afin d'illustrer la formule (ligne 320), voici un 
petit programme pour ceux qui aiment jouer au loto (1 à 49). 


SOU ‘xxx L OO T Q +++ 

FO CLGsPFeliGe4aQ FOR Es1i TO 7 

BEA NESTINT CRND O1 € CCF) +1) Fr) 

AIG FOR Jel TO FE 

FAQ IF NEENE (CT) THEN JeksNEXT: GOTO GE 
6 

AS NEXTs NE KO NB NEXT 

EGQ FRINTS 11,73: "JOUEZ CES NUMERQS':F 
FINT: PRINT 

27Q FOR Jel TO 6: FRINT TAR(17) NE UD) à 


NEXT: PRINT: FRINT TAR (17): NE C7): FING 


380 FRINTE 6,243 "ENCORE--* E 3 QUITTE 
Rs O'ssGET RE:IF Réc"E" THEN RUN 300 
39@ END 


Le rôle des lignes 330 et 340 est de vérifier que le nouveau nom- 
bre n'ait pas déjà été sorti. 
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CALCULS DIVERS 
1) TRANSFORMATION D'ANGLE DEGRES-RADIANS 


Les fonctions trigonométriques de l'ORIC ne concernent que des 
angles exprimés en radians. Pour obtenir l'angle en radians AR à partir 
d'un angle en degrés AD : 

AR = 2+PIxAD/360 
(Pour des grades, remplacer 360 par 400). 


2) FACTORIELLE 


La factorielle est le produit des premiers nombres entiers. 


Exemple : 
51=1x2x3x4x5=120 


4QG ‘FACTORIELLE 

A1Q INPFUT'NOMNBRE"S NE 

4 FACTE=1 

A5 FOR Iei TO NB: FACTEFACTETENEET 
44 FRINT NE "lets FACT: FRINT: GOTG 416 
490 END 


Au delà de 33! -8.68331762 E + 36, c'est l'OVERFLOW ERROR. 


3) RACINE CUBIQUE 


SQQ “RACINE CURIQUE 
310 INFUTENOMERE" 3: NE 
De NEeARS (NEO SIF Ne THEN 5316 
4 ROSEXF (LAN EN) 255 &SGN (NE) 
40 FRINT'RACINE CURITQUE DES NEz "Us ER 
QG: FRINTs GOTOS 10 
394 END 








La rapidité de l'ATMOS est ici étonnante. Cela semble aussi ins- 
tantané que pour une simple addition ! Et pourtant, un logarithme népé- 
rien et une exponentielle. 
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Pour d’autres racines il suffit, ligne 530, de remplacer ‘’3'" par tout 
autre nombre même décimal. 

Grâce aux fonctions ABS et SGN, nous pouvons introduire des 
nombres négatifs ; ce que refusent généralement les calculatrices. 


4) INTEGRALES 


Nous ne calculons pas, nous mesurons ! C'est l'avantage d'un 
micro-ordinateur. Après avoir tracé un graphique en haute résolution, 
nous allons mesurer la surface en pixels entre deux points de l'axe des 
X, X1 ET X2. 

Vous remarquerez que le ‘’calcul'’ n’occupe que très peu de lignes 
(730 à 760), mais il est par contre assez long, vu les milliers de points 
(pixels) à compter. 


SG “MESURE D'INTEGRALE 

618 ‘---TRACE DU GRAFHIQUE 

GER CLS:HIRES : FAFERZ: INKG 

630 CURSETEQ,10,@:DRAW 0,180,1:DRAW 2 
am,m,1 

640 CURSETEO,150,1:DRAW Z00,-90,1 

GS AF="X DE @ À 2Q0":CURSET 80,10,@ 
660 FOR I=1TQ LEN(A#) :C=ASC(MIDE (AE, I 
11)):CHAR C,@,1: CURMOV 6,04,@:NEXT 

67@ INFUT'X1"s XL: X1=X1+70 

EG INFUTIXZ "SX Es XX T4 FRINT'FATIE 
NGE ts 

SSÛ ir XIES24 OR X22:224 OK X1220@ OR X 
HE RQ CR X1re:X2 THEN 670 

7Q& CURSET X1,190@,1:DRAW @,5,1 

718 CURSET XZ,190,1:DRAW @,5,1 

F0 ‘---MESURE 

EG FOR XeX1 TO X2sY=-164 

FA REFEAT : YeY-lsGeG4+il 

JE UNTIL FOINTCX,Y)=-1 

7étt NEXT 

770 FRINT CHR#(14);"AIRE="; SG: "points 
LE/C'"s3IGET KR# 

780@ IF RE='EUTMHEN RUN é&@04 

79Q TEXT:LIST 600 












à 







On peut ainsi faire des intégrales sur des courbes dont on ignore 
la fonction mathématique. 
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Chapitre XV 


LE MAGNETOPHONE SANS ANGOISSE 


Sur le plan magnétophone, l'ORIC ATMOS est au ‘HIT PARADE"" 
pour les raisons suivantes : 
— l'interface cassette est intégrée d'origine, 
— ne nécessite pas un magnéto-cassette spécial à la marque, 
—.deux vitesses d'enregistrement dont une très rapide et fiable : 2400 
bauds, soit environ 240 caractères à la seconde, 
— on dispose en ROM de très nombreuses options d'enregistrements 
et de lectures, 
— La fiabilité de ces enregistrements. 


Ajoutons aussi la possibilité de remplacer le magnétophone par un 
lecteur de disquettes (DRIVE) ; nous en parlerons succinctement. 


LE PRINCIPE 


Il s'agit de transmettre des octets dans un sens où dans un autre. 
On ne peut transmettre les 8 bits en une seule fois (il faudrait un magné- 
tophone huit pistes...), alors on les envoie un par un, par trains de huit 
bits. 

Enregistrons un programme par l'ordre CSAVE. Le début de l’enre- 
gistrement comporte d'abord des indications générales qui indiquent : 
— s'il s'agit d'un programme ou d'un fichier ; 
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— siil est en BASIC ou en langage machine ; 

— le nom de baptème que vous lui avez donné ; 
— des indications de longueurs ; 

— s'il devra s'en suivre un RUN automatique. 


Viennent seulement ensuite, les lignes du programme, et enfin, un 
signal ‘‘fin de l'enregistrement’. 


Par conséquent, s’il manque un petit morceau du début ou de la 
fin, il serait impossible de charger ce programme par CLOAD (le C de 
CSAVE ou CLOAD signifie cassette). 


Le codage de ces bits en signaux électroniques est très complexe 
(chaque fabricant a le sien), disons simplement que la fréquence de ces 
pics est très importante. Si votre magnétophone ne tourne pas à la 
vitesse standard de 4,75 cms, il serait incapable de lire des cassettes 
(du commerce) enregistrées à la vitesse correcte. 


L'interface des ORIC tolère des niveaux de signal (amplitude) assez 
variables ; elle n'est tolérante qu'entre certaines limites mini et maxi. 
Lorsqu'il Y a un problème pour charger un programme, c'est neuf fois 
sur dix parce que l'amplitude (= ‘’volume’") est trop forte ou trop faible. 


La vitesse normale (rapide) nécessite un magnétophone ayant une 
‘’bande passante’ relativement correcte dans les aigus (8 000 Hertz 
minimum). Si votre magnétophone est un modèle ‘’de bazar’, ou si 
sa tête est très usée, vous devrez utiliser la vitesse lente de 300 bauds 
(,S) ; c'est sécurisant mais affreusement long... 


LE MAGNETOPHONE 


Ilest de bons magnétophones en musique qui sont quasi inutilisa- 
bles pour micro-ordinateurs. Cette fameuse question de l'amplitude ! 
En effet : 

— En position lecture, le bouton de volume de certains modèles n'agit 
que sur la sortie haut-parleur, tandis que le niveau de la prise sortie reste 
constant. En ce cas, il est généralement trop fort, mais il est alors facile 
de l'atténuer par le petit montage de la figure XV 1. 

— La plupart des magnéto-cassettes n'ont pas de réglage de volume 
à l'enregistrement, il est automatique (C.A.G. = contrôle automatique 
de gain), car ce dispositif électronique coûte moins cher qu'un vu-mètre. 
Hélas, certains modèles ont un CAG qui donne un niveau ‘moyen’ rela- 
tivement bas, trop bas. 

Si c'est votre cas, vous pouvez vous tirer d'affaire en utilisant la 
sortie HP supplémentaire, avec l’atténuateur de la figure XV 2, et en 
ajustant par le potentiomètre de volume. Cet ajustage devra être fait 
par tâtonnements successifs en partant d'un niveau très faible. Pas de 
surcharges sur l'ORIC ! 

— Le bouton de volume est actif en lecture mais il n’y a pas d'inter pour 
couper le HP incorporé, et le bruit est insoutenable. Enfoncez dans la 
prise pour HP supplémentaire une fiche mâle qui le déconnecte. Il est 
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Potentiormètre 
4 700 ou 10 GOG 


Cables blindés 


ORIC Figure XV 1 


SORTIE MGT 


Montage d'un potentiomètre pour 
ne régler l'atténuation en CLOAD 
Prise mâle 
HP DIN 
(ou jack mûle) Bandes de couleurs 

560 $2 = vert, bleu, marron, or 
100 $2 = morron, noir, marron, or 





cable blindé vers ORIC 


Atténusateur sur la prise de sortie 
haut-parleur supplémentaire du magnétophone. 
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prudent de ‘'court-circuiter'’ ses bornes par une résistance de 680, 820 
ou 1 000 ohms. Voir figure XV 3. 


Prise mûle 
HP DIN 
(ou jack mâle) 


Résistance 1000 & 1/watt 
(bandes marron, noir, rouge, or) 





Fiche pour couper le HP du magnétophone 


Figure XV 3 


Rappelons qu'il existe des magnéto-cassettes conçus pour micro- 
ordinateurs (exemple ‘’HERMES"'). Ils possèdent un commutateur 
‘’musique/micro-ordinateur'". 


LES CASSETTES 


La qualité normale dite « FERRO » est largement suffisante, mais 
méfiez-vous des marques ‘’bidon’’ qui sont souvent chargées avec des 
rebuts de fabrications de grandes marques. En musique et paroles, cela 
peut suffire, mais si un manque provoque la perte d’un seul bit, le pro- 
gramme sera inchargeable |! 


Des cassettes C15 et C30 seraient suffisantes, mais il se trouve 
qu'elles sont actuellement aussi chères que les C60 ! De plus, il y a 
souvent absence de la marque. Le niveau-d'enregistrement-lecture peut 
varier ; en musique, cela n'a guère d'importance, mais ici... Donc, si un 
modèle de cassette vous convient en rapport qualité-prix, restez-y fidèle. 
Mieux, faites en un petit stock d'avance. 


Les cassettes C60 constituent un maximum. N'utilisez pas des 
C90, et surtout pas de C120 ! rembobiner une C60 est chose lente, 
alors n'utilisez pas la face B (sauf pour des sauvegardes en vitesse lente). 


Une cassette de programme demande davantage de soin qu’une 
cassette de musique. Rembobinez toujours après usage, et gare à la 
poussière |! 


LES PRECAUTIONS ANTI-CHEVAUCHEMENTS 


Nous avons expliqué pourquoi un enregistrement doit rester ‘pur’ 
du début à la fin. Il lui faut en outre un SILENCE avant le début. 
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Les premières spires de la bande vont progressivement s’abîmer 
mécaniquement à l'usage. Si vous avez démarré un enregistrement quel- 
ques centimètres après l’amorce, ne vous étonnez pas si au bout d’une 
dizaine de fois, vous ne parvenez plus à le lire. 


Un compteur sur le magnétophone est quasi obligatoire. Vous voulez 
enregistrer un programme neuf. Compteur à zéro. Départ bande en enre- 
gistrement, attendez dix secondes (ce qui peut faire trois au compteur) 
et là seulement, appuyez sur RETURN pour le CSAVE. Par flèche et 
CTRLA, repassez l'ordre CSAVE ‘* ‘’ à l'écran. Dès que le compteur 
atteint un multiple de 10 (20 ou 50 par exemple), nouvelle action sur 
RETURN. Après la fin, encore trois à cinq secondes, STOP, rembobinez. 


Cette sauvegarde est suffisante pour la cassette mais pas pour le 
programme ; pensez à un éventuel accident (ou perte) de cassette. Vous 
allez également le sauver sur une cassette d'archivage (une C60) qui 
reçoit vos divers programmes à la suite, mais avec des repères comp- 
teurs multiples de 10 ou de 20 (tenez son étiquette bien à jour !). 


Pour les cassettes non-archivage, évitez d'y mettre plusieurs pro- 
grammes, c'est vraiment pénible à charger. Une cassette vierge C60 
est bon marché, ne soyez pas trop ‘‘radin'”…. 


Vous voulez à présent remettre à jour (ré-enregistrer en écrasant 
l'ancien) un programme qui commence au repère 10. La super grosse 
bêtise consiste à s'’amener en lecture sur 10, STOP, et PLAY en enregis- 
trement + RETURN. S'il démarre seulement un à deux centimètres 
après le début de l’ancien, vous ne pourrez jamais le lire ! En effet, en 
CLOAD, L'ORIC est ‘‘stimulé’’ par le début de l’ancien départ, après, 
il ne reçoit plus ce qu'il attend ; il plante. 


Voici comment il faut toujours procéder : 
1) Se positionner à environ deux unités de compteur avant le repère 
départ, par exemple 8 pour 10, 78 pour 80... 
2) Démarrer en enregistrement à ce repère en 8. 
3) Quand le compteur arrive sur le repère 10 (ou 80...), on déclenche 
le CSAVE par RETURN 


Donc la zone 8-10 est toujours écrasée par du ‘'silence-amorce”’. 

En position CLOAD, on se prépositionnera aussi en 8. 

Pour la cassette d'archivage, sitôt l'enregistrement terminé, notez 
sur l'étiquette le repère compteur (multiple de 10) pour le prochain enre- 
gistrement ; avec une marge de sécurité confortable entre chaque pro- 
gramme, car l'un d’entre eux pourrait être ‘‘rallongé'”’ par la suite. 


LA TELECOMMANDE 


Il est dommage que le manuel ATMOS soit si peu loquace sur cette 
possibilité. Sur la prise ‘’TAPE”’ des ORIC, les broches n° 6 et 7 sont 
reliées aux contacts d'un petit relais interne. Celui-ci ‘colle’ lorsque 
les fonctions CSAVE, CLOAD, STORE et RECALL sont en action. On peut 
donc relier ces broches par deux fils ordinaires non blindés à la prise 
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“"REMOTE"" du magnétophone. Celui-ci ne tournera que lorsque le relais 
sera ‘‘collé”’. C'est pratique en position lecture, car la mise en route est 
recommandée alors par la touche RETURN et l'arrêt est automatique. 
En revanche, il faut être prudent en position enregistrement, car si le 
magnéto-cassette démarre lentement, le début de l'enregistrement ris- 
que d'être raté ou illisible par l'ORIC. Or, nous apprécions de pouvoir 
programmer des STORE en automatique, aussi faisons-nous un pré- 
démarrage : 

POKE 770183:WAIT 150 

STORE... 
Ce POKE fait déjà coller le relais, et nous lui laissons 1,5 seconde de 
‘‘lancement'’, donc pas le moindre risque. A ce propos, voulez-vous télé- 
commander tout autre chose qu'un magnéto-cassette ? Un moteur, une 
lampe, etc. ? C'est ultra-simple. Pour faire coller le relais interne, c'est 
POKE 770,183, et pour le décoller c'est POKE 770,247 (ATMOS). Mais 
n'y faites pas passer du 200 volts ! Intercalez un relais intermédiaire 
de puissance ou un triac (voir du même auteur « FORMATION PRATI- 
QUE A L'ELECTRONIQUE MODERNE » ; E.T.S.F). 


LES OPTIONS 


Prenez la sage habitude de vérifier de temps à autre un enregistre- 

ment par la fonction 

VERIFY (ATMOS), CLOAD ‘ ‘”, V 
qui ne fait que comparer votre enregistrement au programme encore 
en RAM. Si des erreurs apparaissent, le niveau n'est pas bon, ou bien 
il serait grand temps de nettoyer la tête magnétique avec un coton tige 
imbibé d'alcool (pas d'autres solvants !). 

Une autre option d'usage fréquent est : 

CLOAD ‘ ‘,J 
pour ajouter au programme en RAM un autre programme dont les numé- 
ros de lignes sont obligatoirement plus élevés (sinon les surprises seront 
sournoises...). 

Le démarrage par RUN automatique par 

CSAVE ‘: ‘, AUTO 
présente parfois des ratés en lecture (relancer par RUN). Si tel est votre 
cas, savez-vous que la face 1 de la cassette de démonstration ATMOS 
est prévue pour cela ? 

A propos de la sauvegarde d'une page d'écran (c'est parfois bien 
pratique !), nous nous devons de corriger une erreur relevée dans le 
manuel page 81 : 

Pour sauver une page en HIRES, faire 

CSAVE ‘‘H1'', À 40960, E 48959 
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Le démarrage par RUN automatique par 
CSAVE ‘‘ ‘’, AUTO 


présente parfois des ratés en lecture (relancer par RUN). Si tel est votre 
cas, savez-vous que la face 1 de la cassette de démonstration ATMOS 
est prévue pour cela ? 


A propos de la sauvegarde d'une page d'écran (c'est parfois bien 
pratique !}, nous nous devons de corriger une erreur relevée dans le 
manuel page 81 : 


Pour sauver une page en HIRES, faire 
CSAVE ‘‘H1'', À 40960, E 48959 
et si vous voulez faire de même avec la petite bande texte inférieure : 
CSAVE ‘T1’, À 49000, E 49119 


Pour relire ces fichiers d'écran, n'oubliez surtout pas de comman- 
der d’abord HIRES. 


HIRES:CLOAD ‘’H1 
POKE 26,96:CLOAD ‘’T1" 


Sans ce POKE, le ‘‘ready'" ferait ‘‘scroller’” vos trois lignes de texte. 
Il'est amusant de voir l'image HIRES se former à mesure que la cas- 
sette se déroule. 


QU'APPORTE LE LECTEUR DE DISQUETTES ? (DRIVE) 


Essentiellement, la RAPIDITE à l'enregistrement comme à la lec- 
ture ; quelques secondes au lieu de plusieurs minutes. Autre avantage, 
l'accès direct pour lire un fichier où un programme parmi une vingtaine 
sur la même face de ‘‘DISK"”". Cela rappelle la différence entre un album 
33 tours et sa version cassette si vous désirez écouter l'air numéro 
quatre. 


Tout DRIVE possède son ‘‘DOS'" = "DISK OPERATING SYSTEM". 
C'est son langage figé sur ROM, 16 k-octets, comme le BASIC ! Lors- 
que l'on appelle le DOS, celui-ci est recopié en RAM à emplacement 
du BASIC, c'est ultra rapide. Nous pouvons alors lui donner des ordres 
d'enregistrement et de lecture : ce sont des mots d’un vocabulaire spé- 
cial à ce DOS. Ces manœuvres étant terminées, c'est le BASIC, en ROM 
dans l’ORIC, qui revient prendre sa place en RAM. 


Chaque fabricant conçoit son DOS, ainsi une disquette enregistrée 
sur DRIVE JASMIN ne peut être lue par un DRIVE ORIC et vice versa. 


Une nouvelle disquette vierge doit tout d’abord être ‘’FORMATEE"" 
par son DRIVE. Cela se traduit par un traçage magnétique des pistes 
de guidage, qui seront lues pour enregistrer ou lire. Il ne s’agit pas d'une 
piste en spirale mais de plusieurs pistes concentriques, elles-mêmes divi- 
sées en secteurs. Une piste spéciale est le ‘’ DIRECTORY”, c'est l'équi- 
valent de l'étiquette centrale d'un 33 tours. On n'y trouve le nom de 
chaque enregistrement, son volume en octets et sa position exacte 
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(piste/secteur), le catalogue. C'est le DOS qui le gère et le tient à jour 
automatiquement. On dispose de nouvelles options assez alléchantes, 
le DRIVE est donc bien plus intéressant que le magnéto-cassette ; un 
seul inconvénient mais de taille... son prix | 


Le super luxe est d'opérer avec deux DRIVES (utilisations profes- 
sionnelles) ; sur l’un, une disquette protégée contenant les program- 
mes qui s'appellent successivement et mutuellement, et sur l’autre écri- 
ture et lecture de fichiers de résultats. Autre utilisation, duplication de 
disques. 


Nos aique 





Le dessin par les attributs de lignes ; hélas, ici en noir et blanc 
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et si vous voulez faire de même avec la petite bande texte inférieure : 
CSAVE ‘‘T1'’, À 49000, E 49119 


Pour relire ces fichiers d'écran, n'oubliez surtout pas de comman- 
der d'abord HIRES. 


HIRES:CLOAD ‘’H1" 
POKE 26,96:CLOAD ‘T1 


Sans ce POKE, le ‘‘ready'" ferait ‘’scroller’” vos trois lignes de texte. 
Il est amusant de voir l'image HIRES se former à mesure que la cas- 
sette se déroule. 


QU'APPORTE LE LECTEUR DE DISQUETTES ? (DRIVE) 


Essentiellement, la RAPIDITE à l'enregistrement comme à la lec- 
ture ; quelques secondes au lieu de plusieurs minutes. Autre avantage, 
l'accès direct pour lire un fichier ou un programme parmi une vingtaine 
sur la même face de ‘’DISK””. Cela rappelle la différence entre un album 
33 tours.et sa version cassette si vous désirez écouter l'air numéro 
quatre... 


Tout DRIVE possède son ‘’DOS'"=""DISK OPERATING SYSTEM’. 
C'est son langage figé sur ROM, 16 k-octets, comme le BASIC ! Lors- 
que l'on appelle le DOS, celui-ci est recopié en RAM à l'emplacement 
du BASIC, c'est ultra rapide. Nous pouvons alors lui donner des ordres 
d'enregistrement et de lecture : ce sont des mots d’un vocabulaire spé- 
cial à ce DOS. Ces manœuvres étant terminées, c'est le BASIC, en ROM 
dans l'ORIC, qui revient prendre sa place en RAM. 


Chaque fabricant conçoit son DOS, ainsi une disquette enregistrée 
sur DRIVE JASMIN ne peut être lue par un DRIVE ORIC et vice versa. 


Une nouvelle disquette vierge doit tout d'abord être ‘’FORMATEE"" 
par son DRIVE. Cela se traduit par un traçage magnétique des pistes 
de guidage, qui seront lues pour enregistrer ou lire. Il ne s'agit pas d'une 
piste en spirale mais de plusieurs pistes concentriques, elles-mêmes divi- 
sées en secteurs. Une piste spéciale est le ‘’DIRECTORY"", c'est l'équi- 
valent de l'étiquette centrale d’un 33 tours. On n'y trouve le nom de 
chaque enregistrement, son volume en octets et sa position exacte 
(piste/secteur), le catalogue. C'est le DOS qui le gère et le tient à jour 
automatiquement. On dispose de nouvelles options assez alléchantes, 
le DRIVE est donc bien plus intéressant que le magnéto-cassette ; un 
seul inconvénient mais de taille. son prix ! 


Le super luxe est d'opérer avec deux DRIVES (utilisations profes- 
sionnelles) ; sur l’un, une disquette protégée contenant les program- 
mes qui s'appellent successivement et mutuellement, et sur l'autre écri- 
ture et lecture de fichiers de résultats. Autre utilisation, duplication de 
disques. 
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Chapitre XVI 


IMPRIMANTES ET PHOTOS D'ECRAN 


Dès que l’on dépasse le stade du débutant et que l'on se lance dans 
des programmes de plusieurs kilo-octets, une imprimante devient pres- 


que indispensable pour ‘’s'y retrouver’, pour avoir une trace écrite de 
programmes anciens dans lequel on veut réutiliser un passage, etc... 


On peut classer les imprimantes de trois façons. 
1) Les standards (cas pour ORIC) et celles spéciales à tel type de micro- 
ordinateur. 
2) Le mode d'impression mécanique (à billes, à aiguilles, thermiques, 
à marguerites, etc...). 
3) Le mode d'entrée du signal, ‘‘parallèle'” au standard CENTRONICS, 
les plus fréquentes, (cas pour ORIC), ou ‘‘série’” au standard RS-232. 
Pour les ORIC, deux bons points : l'adoption du standard CENTRO- 
NICS, et surtout le fait que l'interface est incluse sans supplément de 
prix (le cas est rarissime, hélas). Un mauvais point, son socle de sortie 
imprimante est un modèle très peu courant. Il est vrai que le socle ‘‘nor- 
malisé’’ est assez encombrant... Vous avez intérêt à acheter un câble 
« ORIC CENTRONICS » plutôt que d'essayer de le monter vous-même 
(fourni pour l'imprimante ORIC). 


LES MODES D'IMPRESSIONS 


— A BILLES : la petite imprimante ORIC utilise quatre stylos billes spé- 
ciaux, noir, bleu, rouge et vert. C'est plus qu'une imprimante, c'est aussi 
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une ‘‘table traçante’”, donc qui sait faire des dessins en quatre cou- 
leurs. Elle est silencieuse, la qualité, la finesse de ses caractères est 
stupéfiante, elle est bon marché, mais elle présente par contre un gros 
défaut, son extrême lenteur ! Lister un long programme est une opéra- 
tion de longue patience. 


— THERMIQUES : c'est un papier spécial qui bleuit au contact de la 
chaleur. C'est très silencieux, moyennement rapide, mais d’une lisibi- 
lité et d'une présentation vraiment. peu flatteuses. Elles sont de moins 
en moins utilisées. 


— À MARGUERITES : ce sont plutôt des machines à écrire automati- 
ques commandées par micro-ordinateur. La ‘’marguerite’’ inter- 
changeable"” est l'équivalent des ‘‘boules IBM'". C'est la super qualité 
courrier, donc pour le traitement de texte. Elles sont lentes (10 à 20 
caractères/seconde) et très onéreuses. 


— À AIGUILLES (ou ‘‘matrices”') : elles utilisent du papier ordinaire, un 
ruban encreur sur lequel passe et repasse la tête d'impression. Dans 
celle-ci, un étagement de huit micro-aiguilles mues par huit électro- 
aimants dans un plan vertical. Cinq à six frappes horizontalement pour 
dessiner un caractère, 80 à 160 caractères par seconde, une ligne à 
l'aller, la ligne suivante au retour ! Une vitesse mécanique ahurissante, 
et c'est super robuste... et aussi très bruyant. Les marques les plus 
courantes sont SEIKOSHA et EPSON. Ce type d'imprimante est celui 
qui s'adapte le mieux aux besoins de la micro-informatique (et de la 
grosse informatique). On peut leur demander toutes sortes de caractè- 
res, même en double hauteur (un passage pour le haut, un autre pour 
le bas), des lettres minuscules en italiques, des caractères japonais ou 
définis par le programmeur, mais par contre pour les faire dessiner, c'est 
lourd et lent, et en une seule couleur, celle du ruban encreur. 


LE COTE ELECTRONIQUE 


Treize conducteurs relient l'ORIC à l'imprimante, dont huïit pour cha- 
cun des bits de l’octet à transmettre, d’où le nom de transmission en 
‘’parallèle”’. 


L'ORIC peut sortir des octets beaucoup plus vite que la machine 
peut les imprimer, aussi les autres fils instituent un dialogue entre eux, 
du genre « es-tu prêt à recevoir ? Oui, envoie ! Arrête ! Ça y-est, je 
les ai imprimés : prêt à les imprimer ? » etc. 


Le circuit électronique d'une imprimante est aussi impressionnant 
que celui d’un micro-ordinateur. Elle a sa ROM qui contient son lan- 
gage de conversation et d'exécution (aiguilles, mouvement de la tête, 
avance du papier, etc...), et sa mémoire vive RAM où elle stocke ce 
que lui envoie l'ORIC, à savoir d'une part les codes ASCII à imprimer 
sur la ligne en cours et d’autre part, des consignes permanentes reçues 
dès le départ : style des lettres, taille, etc. 
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LA MEMOIRE D'UNE IMPRIMANTE 


Dès la mise sous tension, la plupart de ces paramètres d'écriture 
sont définis par défaut ; des conditions standard. De ce fait, il suffit 
de taper au clavier LLIST... ou LPRINT ‘‘..."" et ça marche tout seul. 


Si ces conditions ‘‘par défaut’’ ne vous conviennent pas, vous avez 
la possibité d'en modifier un certain nombre en ouvrant le capot de l’im- 
primante, afin de modifier certains commutateurs miniatures (‘’swit- 
ches’') ou ‘’cavaliers'”. 


Mais si exceptionnellement, vous voulez en modifier un ou plusieurs, 
vous le ferez par l'ORIC, ces ordres auront priorité sur les positionne- 
ments de ces switches. Ces ordres s’écrivent, en mode direct au pro- 
gramme, à la suite du mot BASIC LPRINT, nous en avons illustré quel- 
ques uns au chapitre XII. 


Très important : ces consignes d'écriture resteront en vigueur tant 
qu'ils n'auront pas été annulés par un contr'ordre venant du micro- 
ordinateur, ou bien encore, et c'est bien plus simple, il suffit d'éteinare 
et de rallumer l'imprimante... 


Neuf fois sur dix, un programme d'édition est truffé de tels ordres 
et l'édition terminée, le papier détaché, ces options d'écritures vont res- 
ter en service, et gare aux surprises si à la suite vous voulez lister un 
programme | 

On reconnaît un programmeur consciencieux au fait qu'il 
commence et termine Un programme d'édition par un ordre qui vide 
la mémoire de l'imprimante, c'est ce qu'on appelle /‘initialisation. 


Pour cette raison, lorsque l’on est plusieurs à travailler sur une 
même imprimante, exemple dans un ‘‘club-micro'”, il est prudent de 
l'éteindre et de la rallumer avant de s’en servir. Inversement, si vous 
venez d'imprimer une ligne en caractères géants, videz la mémoire après 
usage, car si après, on vient faire un listing... 


LA MISE EN PAGE 


Nous laissons de côté les listings et nous abordons les program- 
mes d'éditions. 


Comme pour une lettre ou une page d'écran, une page d'édition 
doit être bien présentée : titres en plus gras caractères (ou soulignés), 
et bien centrés. Sauts de lignes pour ‘’aérer'’, etc... 


Pour les centrages, nous vous conseillons d'utiliser la fonction SPC, 
du genre : 


LPRINT SPC (29);A$ 


car dans la pratique, c'est souvent moins lourd à programmer que les 
fonctions de tabulations de l'imprimante. 


Si vous utilisez du papier à feuilles prédécoupées (pointillages per- 
forés), il va falloir calculer les sauts de pages, de telle sorte que si au 
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départ on prépositionne le papier à ras la réglette de découpage, il faut 
qu'une fois le travail terminé, le papier s'arrête avec une séparation de 
feuille au même endroit. Disons tout de suite que ce n’est pas facile | 


Il faut établir une formule qui donnera le nombre de lignes à sauter 
(ex. LS) en fin de chaque page; puis écrire : 


FOR 1=1 TO LS:LPRINT:NEXT 


LES PHOTOS D'ECRANS 


Même avec très peu de matériel, mais avec de bonnes méthodes, 
vous obtiendrez tout de suite 100 % de réussite. 


1) La recommandation n° 1 va peut-être vous surprendre : Nettoyez 
l'écran ! Pas seulement avec un chiffon, mais avec un coton imbibé 
d'alcool (ou d'eau de cologne) ; vous serez surpris de la couche de 
crasse que l'électricité statique du tube a attiré ! Si vous ne nettoyez 
pas le verre, cette couche se devinera sur les photos, surtout dans les 
angles avec une perte de netteté. 

2) Votre appareil photo est certainement à obturateur rideaux, ais 1a 
vitesse la plus rapide sera 1/4 seconde. S'il s’agit d'un obturateur cen- 
tral, vous aurez droit au 1/15 s, pas plus rapide. Si vous ne respectez 
pas cela, vous aurez des phénomènes stroboscopiques. Des zones plus 
sombres en diagonales. Par conséquent, un film de 100 ASA consti- 
tue un maximum, car pour une brillance d'écran normale, attendez-vous 
à f:11au 1/4 s, ou mieux encore, f:16 à 1/25. 


L'appareil sera sur pied, bien en face de l'écran (ce n'est pas évi- 
dent...), c'est-à-dire son axe optique bien perpendiculaire à l'écran. Vous 
pouvez conserver la focale normale, mais surtout pas de grands 
angulaires… 


Tout est bien réglé ? Armé ? Alors allez éteindre l'éclairage de la 
pièce ! Ce n'est pas pour améliorer le contraste, mais tout simplement 
pour que l'appareil photo ne capte pas son ‘‘propre”” reflet dans le verre 
de l'écran. Dans le viseur, on ne le remarque jamais, mais sur l'épreuve 
ou sur la diapo, c'est franchement ridicule. 


Si vous souhaitez que votre photo paraisse dans la presse, évitez 
les fonds noirs, les techniques d'’encrages risquent de la transformer 
en ‘‘tas de charbon”, si c'est de la couleur, de la diapositive exclusive- 
ment (type ‘‘lumière du jour’). 


LA TRICHERIE 


Comment faire une photo nette au quart de seconde d'un passage 
animé ? 

Il faut arrêter le programme sur le bon endroit. Pas à la main par 
CTRL C, mais en souillant le programme d'une instruction d'arrêt (celui 
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mis en RAM, pas celui sur cassette). Pas de STOP, ni de END qui vont 
afficher cet horrible ‘‘ready'’, mais plutôt un WAIÏT 1000 glissé au bon 
endroit. 


Alors ? Est-ce que tout cela était vraiment difficile ? 


CONCLUSION 


(Puisqu'il en faut toujours une !) 


Notre bourrage de crâne est terminé, et peut-être, voyez-vous main- 
tenant votre clavier autrement qu’en noir et rouge. N'ayez aucune 
crainte, ce clavier a l'air d'être très résistant puisque celui de l’auteur 
ne donne toujours pas de signe de fatigue. Lancez-vous à fond ; vous 
avez les armes, il ne manque plus que l'entraînement. 


Un conseil, ce sera le dernier, c’est promis : faites attention à vos 
heures de sommeil en retard, car plus on programme vite, plus on se 
couche tard. 
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